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Tips & Tricks: 


e Break-Schutz für VC-64 für 
e mit Maschinensprache Atari 
zum Bildschirm = 


Infos: 


e Alphatronic PC 
von Triumph-Adler 
e Philips MSX VG 8020 





Wettbewerbe: 


e Fehlerfreie Listings 
e Software-Champion 
1985 gesucht 
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Ab sofort wieder bei Ihrem Zeitschriftenhändler 
erhältlich! 
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STOP +++ Neue Ausgabe + ++ STOP 
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Infos 

Der Alphatronic PC von Triumph-Adler 
Der CUB-452-Farbbildschirm 
Autoren-Wettbewerb l 
Korrektur zum TI-Spiel „Infra“ 2 
CPC-464 Software im Test | 
Alarıs neue Superrechner SA 
Philips MSX Home-Computer VG 8020 

ZA -Spectrum: Mit Maschinensprache zum Bildschirm 73 


Te, 


Leserbrief-Kasten d 
Homecomputer-Bibliothek 
Neues vom Büchermarkt 4 


Tips & Tricks 


interne Abspeicherung von Basic-Zeilen 


für den Schneider CPC-464 30 
Break-Schuiz für C-64-Programme 3 ] 
Club-Ecke 76 
Software 

Commodore 64 

Tennis () 
ÖOcean Game l 3 
TI-99 

Santa Maria 22 


Tarzan 26 





Schneider CPC-464 

Geisterschloß 32 
MSX 

Solarıs 36 
Z4-Spectrum 

Pooyan 47 
Mr. Pacman 49 
IX-81 

Cave-Flieht 3 > 
VC-20 

Ghost-Eges 5 7 
Fox-Hunt 60 
Apple 

Tyros 6 3 
Dragon 32 | 
Smiley 69 
Kleinanzeigen 2] 
Software-Service 78 


Kassetten- und Disketten-Versand 


Solaris 





NISXK Commodore 64 
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Wir. Pacman 





ZX-Spectrum 
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Sammelordner 
Dhe Zeitschriften Homecomputer und 
CPL lese ich seit Erscheinen der ersten 
Hefte. Mittlerweile sind es schon eine 
Eanze Wlenge Hefte, die sıch bei mir 
stapeln. Diese „Unordnung“ finde ich 
aber nıcht schön und möchte deshalb 
die Zeitschrifien in Sammelmappen 
einordnen, wie es sie für andere Zeit- 
schriften auch gibt. Gibt es für die Zeit- 
schriften überhaupi Sammelordner? 
Ab März erhalte ich auch die Zeitschrifi 
Computronic. Da auch diese Zeitschrifi 
mir gefällt, würde ıch alle bis jetzt er- 
schienenen Hefie nachbestellen. 

Peter Jermis, Berlin 


Antwort: Juch uns st das Prahlem der 


Zeitschriftenstapel bekannt. Die von Ih- 
nen angesprochenen Sammelmappen 
sind in Vorbereitung und werden, mil 
Aufdruck für die emsprechende Zeit- 
schrift, DMIO- kosten. Was die 
Nachbestellung der älteren Auseaben 
betrifft, beachten Sie bitte unser Angebot 
aus der Compurorme" Heli Mai’Juni 
1983. Hier können Sie die noch vorhan- 
denen Hefte zu einen günstigen Preis 
erwerben. 


4 HOMECOMPUTER 


|Nachbestellungen 

|Heute habe ich Ihre Aprıl-'55- 
Ausgabe erworben und muß Ih- 
nen direkt schreiben. Ich bin so 
begeistert von Ihrer Zeitung, daß 
ich mich nicht nur Ihnen lobend 
äußern möchte, sondern auch 
meinen Freunden Ihre Zeitung 
nahelegen möchte, Ich habe erst vor 
kurzem einen C 64 erworben und bin, 
da ich nicht vorbelastet an das Compu- 
tern herangehe, natürlich noch ein biß- 
chen unsicher. Ihre Zeitschrift hat mir 
so manchen Tip und auch Trick gege- 
ben, der meines Erachtens im Bedie- 
nungshandbuch fehlt. Nun aber noch 
eine Frage. Besteht die Möglichkeit, 
daß ıch Ihre vorausgegangenen Ausga- 
ben (Nov. "34 bis Febr. '85) bestellen 
kann’ 

Andreas Rüb, Haan 


Antwort: Wir freuen uns, daß Ihnen 
unsere Zeitung eefillt und wünschen 
Ihnen weitersin viel Spaß mit Ihrem 
Computer, Leider müssen wir Ihnen 
mitteilen, daß, bedingt durch den Ver- 
Sagswechsel, von uns nur noch die Aus- 
gaben Jan. 85 und Fehr./März '85 lie- 


ferbar sind. 


Doppelabonnement 

Ich habe Ihren Brief erhalten, daß die 
Zeisschrifi „Homecomputer” nur noch 
alle 2 Monate erscheint und daß Sie mir 
in dem Monat, in dem „Homecompu- 
ter“ nicht erscheint, die Zeitschrift 
„Lomputronic”" zusenden. Da ich 
„Computronic" aber schon abonnieri 
habe, ısı dies keine gute Lösung, da ich 
das Heft ja doppelt erhalte. 


Carsten Engel, Hütschenhausen 


Antwort: Natürlich har die Umstellung 
der Erscheinungsweise von Homecom- 
puter" einige Verwirrung und Unzufrie- 
denheit bei unseren Abonnenten ausge- 
löst, Wir haben uns entschlossen, die 
Zeitschrift ‚Computronic" als Ersatz für 
den Ausfall von den Heften zu senden. 
Sollten aber bereits Abonnenements für 
die Zeitschrift ‚Computronic" vorliegen, 
werden wir das Abonnement von Home- 
computer bei diesen Lesern entspre- 
chend verlängern. 


Utilities 

Mit diesem Schreiben möchte ıch Ih- 
nen meine Ansicht über Ihre Zeitschrif- 
ten CPU, Homecomputer und Compu- 
tronic mitteilen, die ich regelmäßig 
lese, Zunächst Millt mir als Apple-User 
auf, daß Sie relativ viele Spiele für die- 
sen Personal-Computer abdrucken. 
Bilte bringen Sie stattdessen mehr W1i- 
lities. Außerdem sollten Sie weniger Li- 
stines (allgemein) bringen und dafür 
den redaktionellen Teil erweitern 





{mehr Tips & Tricks). Ansonsten (Preis 
cite.) gefallen mir Ihre Zeitschriften 
recht gul. 

Peter Müller, Bielefeld 


Antwort: Wie Sie sicherlich beim Stu | 
dieren der ‚neuen” CPU bemerkt haben, | 
gehen wir in dieser Zeitschrift verstärkt 
auf Leser ein, die sich mehr Utilities und 
weniger Spiele wünschen. Die beiden 
anderen Zeitschriften Homecomputer" 
und „Computronic" sind für die Freun- 
de guter Computerspiele gedacht, Wir 
glauben, hier eine interessante Mi- 
schung an Informationen durch die ein- 
zelnen Zeitschriften gefunden zu haben: 


Lückenfüller 
Hiermit möchte ich Ihnen mein (vor- 
läufiees) Beileid aussprechen! Mit strıik- 
ter Unregelmäßigkeit kaufe ich Ihre | 
Zeitschrift und muß jetzt immer noch 
feststellen. daß man aus Fehlern 
scheinbar nicht Klug wird. Nehmen wir 
zum Beispiel die Aufmachung: Es ist 
keineswegs sinnvoll, Berichte und Li- 
sungs mit solch überdimensionalen 
Lückenfüllern — sprich Zeichnungen - 
aulzufüllen, wie ın Heit 4/35 wieder- 
holt geschehen. Allein in dieser Ausga- 
be sind sage und schreibe 14 solcher 
Lückenfüller zu begutachten, welche |) 
ein wahrhaft globales Ausmaß an Pa- | 
pierverschwendung ans Licht bringen. 
Ich bezweifle, daß diese Dinge den 
recht enormen Preis von 6,—- DM recht- 
fertigen. Mein Vorschlag daher: weni- 
ger Schnick-Schnack und mehr Infor- 
mationen, Spiel- und Anwenderpro- 
gramme. 

Hans-Jörg Jordan, Erkrath 


Antwort: Endlich ein Leser, der sieh 
über das Layouf und die kaufmänni- 
schen Probleme eines Zeitschriftenver- 
lages Gedanken macht. Narlirlich sind 
Ihre Anregungen sehr interessant, aber 
bedenken Sie, daß „Heimcomputer“ 
eine Zeitschrift speziell für Computer- 
spiele ist. Die Zeichnungen sollen die 
Phantasie des Lesers zu den einzelnen 
Spielen anregen. Reine Listings und 
nüchterne Informationen erfüllen nach 
unserer Meinung nicht die Anlorderun- 
gen an ein Spielemagasın. Der Preis 
scheint uns aufgrund der Vielzahl der | 
veröffentlichten Spielprogramme als ge- 
rechtfertigt, 


| Noch ein Hinweis zur letzten Ausga- | 
| be: Das dort veröffentlichte Pro- 
| gramm „INFRA“ für den TI-994 A | | 


wurde von Herrn Ralf Meschede, 
| Magnolienweg 4, 4750 Lippstadt, 
| entwickelt. 
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Machdem die Aktıon „Fehlerhaftes Li- 
sting“ in der Zeitschrift „Computronic“ 
beiden Lesern ein starkes Echo gefun- 
den hal, haben wir uns enischlossen, 
diese Aktion auch in der Zeitschrift 
„Homecomputer“ einzuführen. Alle 
Leser sınd daher aufgefordert, die Ar- 
beit unserer Redaktion zu prüfen und 
uns mitzuteilen, ob wir eventuell ein 
fehlerhaftes Listing abgedruckt haben, 
da auch wir nicht ganz frei vom Fehler- 
teufel sind. 





Neu in Ihrer Homecomputer-Zeitschrift: 


Legen Sie dem Fehlerteufe 
das Handwerk! 





Vorwort auf diese Aktion hingewiesen 
und versprochen, alle Programme lau- 
fen, allerdings ist die richtige Eingabe 
der Daten Voraussetzung. Aber - 
prompt hat sıch schon der erste Fehler 
in Homecomputer Heft 4 eingeschli- 
chen. Ein aufmerksamer Leser schrieb 
uns; Das war ein Eigentor! Er hat recht, 
und deshalb haben wir uns entschlos- 
sen, sofort mit der Auslosung von 5 x 
1U0,- DM Belohnung für jeden nachge- 
wiesenen Fehler zu beeinnen. 





Im letzten Heft haben wir ja bereits im 
Hier sind die ersten fünf Gewinner unserer neuen Aktion: 
Markus Ueberall, Hanau 1 Teilnahmebedingungen: 
Martin Udelhoven, Köln 80 
Woligang Bürger, Velbert 1 


— ein Listing ist nur dann fehlerhaft, 
wenn das Programm nach richtiger 
Programmiereingabe eine ERRÖR- 
Meldung ausgıbi, 

— der Nachweis des iehlerhaften Li- 
stings muß auf dem abeedruckten 
Nachweis-Coupon erfölgen, 

- nur die ausgefüllten Nachweis-Cou- 
pons können berücksichtigt werden, 


Manfred Lipowski, Castrop-Rauxel 4 
Friedrich Gottschalk, München 90 


Nachweis-Coupon für ein fehlerhaftes Listing in Homecomputer 


HNameVorname: Sırafle, Fr: 


PLFEÜR: Datum, Unmerchrift 


Folgende Fehler sınd in dem Listing: | 
(PFrogammnanme) 


(Seite) 


(Listingreike) 


richtig ist: 





| 1 
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alphatronic PC 


Der persönliche Computer zum Spielen und Lernen 


Li 


Y 
k 


Bildschirm: 


U) Bildschirmsteuerung durch 
CRT-Controller 

I hohe Zeichenauflösung durch 
sx 10 Punkt-Matrix 

[! varıables Bildschirmformat: 
s0x24,.40x 24 
































Besondere Wlerkmale: 


[| voll CP/M-Bihie in der Grund- 
ausstattung mit Floppy-Disk- 
Einheit 

[] Semi-Grafik: 

-— Monitor 160 x 72 
— Fernsehgerät $0x TO 
Gralikeinheiten 

18 Farben, jeweils & Vorder- und 

Hintererund kombinierbar 
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_] MicrosolVTA Basic-Interpreier mit 
erweiteriem Befehlsvorrat 

_] spätere Ausbaulähigkeit durch 
BUS 1'O gewährleisten 


Zentraleinheit: 


0780 A, 4 MHz 

[1] Unterbrechungssteuerung 
durch Interrupt-Controller 

U integriertes Netzteil 


- Schnittstellen: 


[| Kansas Ciiv 1/0 für Kasseiten- 
Recorder 

I] Centronies für Drucker 

URS232C (V 24) alternativ für 
Drucker oder Datenübertragung 

[| BUS LO für Floppyv-Disk (oder 
spätere mögliche Erweiterungen) 


Der älphatronic PC ıst das jüngste Mit- 
elıed der Trrumph-Adler-Compulerla- 
milie. Ein Personalcomputer, mit viel 
Leistung auf kleinem Raum, 


Superklein und superflach hat er auf 
jedem Arbeitstisch (oder Spieltisch?) 
Platz. Zur privaten Nutzung genügt eın 
Fernsehgerät, wenn möglich in Farbe, 
und eın normaler Kassettenrecorder. 
Die übersichtliche Tastatur l4Bı sich 
gut bedienen. 


Wenn es ums Spielen und Lernen geht, 
ist der alphatronic PC rıchtig am Platz. 
Er ist ein intelligenter Schachpariner, 
brinet Spannung und Entspannung bei 
ausgetüftelten Computerspielen und cer- 
rechnet sogar spielerisch Ihre Lebenser- 
wärtung. 


Solche Unterhaliungsproeramme zum 
Selbsteintippen sind bereits in vielen 
Varianten im Buchhandel erhältlich. 
Fertige Spiel- und Lernprogramme auf 
Kassetten bzw. Disketten und Steck- 
module sind ebenfalls im Handel er- 
hältlich, 


Doch der wahre Entdecker-Ehrgeiz 
wird sich natürlich mit den vorgefertig- 
ien Programmkassettien schon bald 
nicht mehr zufriedengeben. Nahezu un- 
erschöpflich ist das Anwendungsreser- 
voir des alphatronic, wenn er individu- 
el programmiert wird. 


Das Gerät versteht alle gängigen Com- 
putersprachen. Vom einfachen Basıc 
bis hin zum anspruchsvollen Pascal 
oder zur Wissenschafts-Computerspra- 
che Fortran. 


Bereits mir der Bedienungsanleitung 
können die ersten Programmierschritte 
unternommen werden. 


Ergänzende Fachliteratur mit vielen 
Programmierbeispielen ıst ım Fach- 
handel erhältlich. 


HEBBEBBBSBSEBSBBBBBEH 
Mikreprozessoren 
Computertechnik 


Fraxisnahe Fachausbikdung durch Stasi. 
BeprUren Ferniehrgang. Hordi/Soltenee, 
ssehlnenspreche, ee ar era ee 
Computer-Lemsysbemn wird mitgeßelert. 
Intormatlorı kostenlos. | 
ISF.Lehrinstibut, 2800 Dramen J4/Abı. B-187 
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"CUR 43 ist der. So unwahrscheinlich 


populäre 14-Zoll-Farbbildschirm der 
bereits bei: standardmäßiger Auflösung. 
452 x 585 Bildpunkte besitzt und eine 


Färbauflösung hoher Qualität zu optli- 
‘malen Kosten bietet, bei maximaler 
"Kompatibilität, 


Der CUB 452-Bildschirm, der speziell 
für Heim, Schule und Ausbildung 
konzipiert "wurde, ist bereits zur:stän- 
‚dardmäßigen Ausrüstung i im Bildungs- 
und Ausbildungssektor geworden — und 
im Heim des Computer-Liebhabers 
zum vertrauten Mobiliar. 


Der spektakuläre Erlolg der CUB 452- 
Reihe beruht letztlich aufzwei Grund- 
tatsachen: Einerseits stellen diese Bild- 
schirme die einfachste und wirtschaft- 
lichste Form der Kommunikation in 
Farbe dar und andererseits ist es von 
größter Bedeutung, daß bei dem ständig 
wachsenden Computermarkt die Bild- 
schirme in der Lage sind, an möglichst 
viele verschiedene Computer ange- 
schlossen werden zu können. Der CUB 
452 ist der einzige Farbbildschirm, der 
am Sinclair Spectrum angeschlossen 
werden kann. Doch mehr als das: CUB 
452-Bildschirme sind mit einer breiten 
Palette von Bestseller-Computern wie 
dem BBC, Orie | und Atmos, Acorn 


' CUB 452 genießt 
einen guten Ruf 


Dem Ruf für Zuv erlässigkeit und Qua- 
lität dieser vorzüglichen Serie mangelt 
es nicht an nachhaltiger Besuätigung. 
CUB 452 war der einzige Farbbild- 
schirm, der vom britischen Industrie- 
ministerium für die Aktion „Micros ın 
der Schule” ausgewählt wurde, bei der 
jede Grund- und Hauptschule einen 
Microcomputer erhielt. 





RGB/PAL-Videobildschirm 

mit Tonwiedergabe 

Auch das System RGB/PAL steht für 
14+Zoll-Bildschirme mit Standardauf- 
lösung zur Verfügung, ein weiteres Zei- 
chen von CUBs revolutionärer Vor- 
wärtsstrategie auf dem Gebiet der 
Hochleistungs-Farbbildschirme. 
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Electron, RML 4807, Atarı, Commo- 


dore und vielen anderen ‚kompatibel 


Diese Farbbildschirme erzeugen 'her- 
vorragende Bildqualitäten im Einsatz 


mit Microcomputern. Doch das ist 


noch nicht alles: das. RGB/PAL-Gerät 
ist außerdem in der Lage, auch von 
Laserplaiten, Video-Casseltenrecor- 
dern und VWideocameras höchste 
Bildqualitäten wiederzugeben, Der 
Grund hierfür ist. daß das Signal nicht 


moduliert und anschließend wieder de- 
‚moduliert wird. wie ‚dies bei einem ge- 


wöhnlichen Fernschempfänger der Fall 
ist. Fügen Sie dem noch die Einrichtung 
für Tonwiedergabe hinzu sowie die 
Wiedergabe aller Fernschprogramme, 
wenn mit einem W.C.R. eingesetz1, und 
das Ergebnis hört sich so gut an wie es 
auch aussieht. 





CUB 452— EEE UNE 


Eine gute Investition 
für die Gegenwart 
und die Zukunft 


Das RGB/PAL-Gerät besitzt all die 
Merkmale, die CUB-Produkte berühmt 
machen: Zuverlässigkeit, Qualität und 
hohe Leistung. Die wichtigste Neuig- 
keit für den angehenden Käufer dürfte 
jedoch sein, dab das RGB/PAL-Gerät 
eine gule und verläßliche Investition 
darstellt — denn ganz abgeschen davon, 
wie dramatisch Computer und Video- 
systeme sich ın den kommenden Jah- 
ren auch ändern mögen, das Mittel der 
bildlichen Wiedergabe ihrer Ausgabe 
ändert sich höchstwahrscheinlich nicht. 





Eine Angeböfspälette, | 


die jedem Bedarf 
entspricht 





Das 14-Zoll-RGB/PAL-Gerät ist Teil 


einer umfangreichen und vielseitigen 


Palette und deshalb auch mit all den 


nachfolgenden populären Microcom- 


putern kompatibel: British Broadcası 
Corporation (Modell A & B), Commo- 
dore 64, Apple-Serie, Tandy, Oric |, 
RMIL 3807 & 480Z, Tandata TEIIO, 
Sharp, Atari 600 und 800 und vielen 
anderen, 


Sicherheit 


"CLUB 452 erhöht die pädagogischen 
Qualitäten eines Computers, indem 
sich nämlich auf diesem Gerät Infor- 
mation auf die interessaniestie Weise 
darstellen läßt, 

Es eliminiert den oft so enttäuschenden 
Farbempfang und die schlechte Zei- 
chenschärfe, wie sie so oft bei gewöhnli- 
chen Fernschemplängern und anderen 
Farbbildschirmen vorkommen. 
*Zulassungen: BEAB und GLC 





Spezifikation des 
CUB 452-Bildschirms 


Bildschirmgröße: 14" 
Auflösungsvermögen ‘der Bildröhre 
(Bildpunkte): 452 (h) x 585 (v) 

Raster: 0,64 mm 

Bandbreite: 1$ MHz 

Eingabe: TTL mit PAL’Ton-Option 
Netzanschluß: 180 — 265 V Wechsel- 
strom (110 W auf Wunsch lieferbar), 
45-64 Hz 

Hochspannung: etwa 24 kV 
Betriebstemperatur: -1O°’C bis +40 °C 
Stromverbrauch: etwa 65 W 
Gehäuseausführungen: Kunsistoff (D) 
Metall (MT) 
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Das-Priniersei ist ein Druckerständer 
mit Schallsch zhaube in einen attrak- 
tiven Desien] 

as Entlospapıer wird: unter dem 
Drucker deponiert: und ıst dort platz- 
sparend und stallbeeschiltzt aufgeho- 
hen. Das schalldämmende ‘Material 
Plextelas reduziert das Druckeeräusch 
um: l0.dB, das bedeuler bei ein#mlÄT- 
kejisplatzdrucken eine um! dielHälfte 
währnehmbare Geräuschminderune: 
Bei gesffnerer Haube sieht der Drucker 
[rei /und-alle Funktionen sind!'wie'ge- 
wohnt erreichbar 

Die innen angebrachten Schutzstreilen 
verhindern ‚eine statische Aufladung 
des Papiers, zwei Kabelschlitze halten 
die störenden Druckeranschlußkabel 
aus dem Papierbereich und dadurch'ist 
ein cinwändircier Päpierlransport pe- 
währleisiet 

Eine MeBskala zeigt den vorhandenen 
Päpiervörrat' bis >00" Blatt an. Wier 
Gummitüße geben dem Pser atf’allen 
Arbeitsllächen einen sicheren Stand. 
Das Pset benätiet'weniger Platzals der 
Drucker und das Endlospäpier auf der 
zur Verfiigung stehenden Fläche. Das 








IH) 





Pset gibt esin zwei Größen tür. über 10) 
Drucker, 

Durch das edlk& neutrale Matenal Ple- 
xielas, das ansprechende Desten und 
dıe Abmessungen ist das Pselan jedem 
Arbeitsplatz zu installieren. 


Neues Printerset von _ 
DAZU Produktvertrieb GmbH 





Die DAZU-Proöduktie sind über)'den 
Fachhandelerhältlich, 


DAFU PRODUKTVERTRIEB 
GMBH, Spaldingstraße'l, 2000 Ham- 
burg 1 





Neu: DIE JOY-CARD 





Eine ganz neue Generation des altbe- 
währten Joysticks ist angebrochen - 
die JOY-CARD -ein Produkt der Fir- 
ma Hudson. Die neue Flachkönstruk- 
tion, erstmals von der Firma Jürgen 
Schumpich auf dem deuischen Markt 
vorgestellt, vereinigt alle Vorteile wie 


hervortagende Spiel-, Steuer- und Re- 
eelungs-Eigenschaften in einem Pro- 
dukt. Was einige Computer der neuen 
Generation: bereits auf dem Keyboard 
nicht immer optimal integriert haben, 
eibt es nun für den professionellen Be- 
reich separat und natürlich für allebe- 





reits im Einsatz befindlichen Compu- 

ter. die bisher ohne integrierte Joy- 

Card auskommen mußten, 

Die wesentlichen Vorteile sind in Stich- 

worten: 

-— ontimale Handhabung 

— sehr lanee Lebensdauer durch geringe 
Abnutzung des Mechanısmus 

- sehr schnelle Reaktion 

— gute Standfestigkeit 

Die hohe Kompatibilität mit allen 

Computern, die einen 9poligen Joy- 

stickanschluß besitzen und auch der 

scharf kalkulierie Preis von 29,80 DM 

(empf. VK-Preis) machen diese Joy- 

Card für einen großen Anwenderkreis 

interessant und bietet eine echte Alter- 

native zu den herkömmlichen Jov- 

sticks. 

Größe: I2x6x 1,5 cm. 


Vertrieb: Jürgen Schumpich, Interna- 
tionale Industrievertretungen GmbH, 
Jägerweg 10. 8012 Ottobrunn. 
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" "Vorprogramm: oe; 
© 3.4 REM BekleeaeeAke | 
12 REM % h | 
© 'IAREMKTENNIS % g 
'i6 KEM % (C)°85 ee | 
„ja Ren 4 2 
12 REM haare = 
© 185 PRINT"SNACHLADEN VON SCHASSETTE ODER BOMISKETTE ?" 5 
'118 POKE198, 8'WAIT138, 1:BETAS: IFASCH"C"ANDASC>"D"THENGOTOL18 | 
„ 115 IFAs="C"THEN PRINT"CHSSETTE" :POKE198,1:POKESS31, 131 6070158 r 





Fin Spiel für 


In diesem Spiel handelt es sich nicht 
eiwa um eine der zahlreichen Versio- 
nen des „Ur-OÖpas“ der Videospiele, bei 
dem sich zwei rechteckige Balken an 
jeder Seite des Bildschirms hoch- und 
runterbewegen lassen, von denen dann 
ein ebenfalls rechteckiger Ball abpralli. 
Diese realistische Tennisversion zeich- 
net sıch durch ein graphisch hervorra- 
gend konstruiertes, dreidimensionales 
Spielfeld, mehrfarbige Spieler und 
spielechten Sound aus. Das Programm 
wird von zwei Spielern mit Joystick 






en mn 
a En 5. nommen HERBST SUR. FORmIRL BAT = SL DE 





iz IFAScC>"D"THENGOTOIID 


) 
zwei Personen: 


a 


zn m 





gespielt, Der Ball kann dabei in drei 
verschiedene Richtungen geschlagen 
werden: diagonal nach oben, geradeaus, 
diagonal nach unten. Dies geschieht 
durch Bewegung des Joysticks in die 
entsprechende Richtung Der Auf- 
schlag erfolgt durch Drücken des 
„Fire*-Knopfes. 

Die Punkterählung erfolgt nach den 
original „Wimbledon*-Regeln, mit der 
Ausnahme, daß es keinen „Tie-Break“ 
gibt. Ein Spiel geht über zwei Gewinn- 
sätze, Spielstand und Namen der Spie- 





Fin 
an 


TENNIS 


Commodore 64 





ler werden auf einer Tafel angezeigt. 


Hinweise zum Eingeben: 

Tippen Sie zuerst TENNIS Iab, SAFEn 
Sie es, starten Sie es. Danach tippen Sie 
TENNIS II ab und SAVEn Sie es hinter 
TENNIS l auf Ihrer Kassette (bzw. Dis- 
kette). Zum späteren Laden drücken Sie 


einfach SHIFT + RUN STOP. Wenn 


Tennis I geladen ist, schließt sich auto- 
matisch TENNIS II an. 


148 FRINT"DISKETITE" :PRINT"MLORD "CHR&EL34) "TENNIS Z"CHRSC34}" 8" PRINT "IODRUN" 


© \145 POKE1S8,6:FÜKE&31.19:POKE&32. 17: POKEB33, 17: PO 
156 POKE44, 48: FOKE454256, 0: NEN 


READY. 
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KES34, 17:POKESIS. 13: POKEE3E,13. © 


HOMECOMPUTER 9 











"48 REIT Bkalkokahahkl add 
'12 REM & | 
i4 REM # TENNIS «C)’B4 
i6 REM & By 

id REM k GEIERSOFT 

28 REM #* | 
22 FREM ck bla ! 

45 Vw53249:51=54272:03=58722:A$=" 0153048 Y":SA=1:Al=1:DIMMUCZE,2) 


Hauptprogramm: 


w.Earrre 


36 PRINT" :POKE214,19:SYSCS:PRINT" BITTE WARTEN SIE EINEN AUGENBLICK BIS 


45 PRINT" ALLE DATEN EINGELESEN WORDEN SIND ":POKEV+21,8 
REM 
33 Ben SPRITES UND M-EDIDE EINLESEN 


7@ FORA=286721028692 :POKER, 8: NEXT 
38 FORA=BTOS4R?-1:READE: PÜKEZB48+A, B:NEXT 
'95 FORA=245761025683 :READB:FOKERA, B:NEAT 
188 FOKE2ZA48 , 32: POKE2441 , 34: FOKE2042, 36: POKE2043, 37 :POKE2044 , 38 
"105 PÜOKEVY+37, 7: PÜKEY+38, 8: POKEV+439 2: POKEY+4, 6: POKEV+41 9: POKEV+42, 9 
{id POKEV+23, 3: POKEY+28, 3:POKEV+43, 7:POKE28674, 1:FOKE28675; B:FOKEZB6r2,8 
115 POKEZ28873, 8: FÜKE28683, & 
385 REM 
396 REM YORPROGRAMM 


REM 
das FÜKEV+1E.:B: PRINT"; :POKEV+32,5:FOKEV+33.5 | | 
485 FOKEW+1.88: FÜKEV+3, 68: POKEV+5,68:FOKEV+7 60: FÜKEV, 82: FÜKEW+4, 91 
415 FOKES1+24, 15: POKESI+5.8:POKESI+6, 248: POKESIt4. 127° FORA=3T087 : PRINT" RU" 
420 PRINTTREOUF In m m un u m 
425 PRINTTABSLZI" I DR Een " N | 
438 PRINTTABL123" I JE JiIE DIE au" :FOKESIH,; 128-A:FOKES4E,R: NEXT 
435 POKESI+4.8: INPUT"ENAME SPIELER 1°, HA&C1Y:INPUT"INAME SPIELER 2": NA#(2) 
dd NASCLI=SCHRELIBI+NAFLL I: NASCZISCHRES IB? + NFC} re 
445 PRINT"ZSIE KÜENNEN ZWISCHEN 3 SCHEIERIGKEITS- GRADEN WAREHLEN" 
45a PRINT") ANFRENGER":FRINT"IE) FORTGESCHRITTENER" :PRINT"IB? PROFI" 
'dsB BETINE:IFINFE"LVOR IN$>"3"THENGOTO4SO 
465 FOKEZA4TZI . (S3-ASct INEIIRZ+I 
47a ERINT"IIWIEL GLLUECK...DAS MATCH BEGINNT I" 
475 POKESI+5.5:FÜKESI+6.8: POKESI+24, 15: POKEV+21,0 





'485 REM 

'498 REM SPIELFELDAUFBAU 

‚495 REM 

"SUB PRINT"; | I. 

518 FORA=BTD4:PRINT" mu ";:NEXT:GOSUB1588 

558 POKEZ11,@:POKEZ14.7:5Y5C$: FOKEB46.1 

555 PRINT'E _ . Er 

568 PRINT" | | | I" 

565 PRINT" | | f | [.% 

578 PRINT" | | | | HE, 

575 PRINT" | | | | w 

588 PRINT" | | | | W 

595 PRINT" | | ah ei 18 

598 PRINT" | jr HET [" 

595 PRINT" | | | j" 

EB PRINT" I | | E 

565 PRINT" | | | | E 

‚618 PRINT" I | | I" 
- :615 PRINT" | | | j" 

628 PRINT" | | 1 | j" 

625 PRINT" | i | j" 

638 PRINT" = 

'986 REM 

385 REM MASCHINENPROGRAMM AUFRUFEN 

999 REM UND PUNKTE ZREHLEN 

395 REM 


1a0G GOSUB150B: 57824988: IFPEEK(2B676)=130THEN3=2 
1818 IFPEEK(28B676)=2THENS=1 

if20 IFPEEKC2BSA3)=1THENPUCSI=PUCSI+1 

id3a IFFEEK(2B683)=255THENS=3-8:PULSI=PUCEIH 

1835 IFPULSI=4ANDFUCI-SI<STHENGOTO11BB 

igsd IFPLCA-SI=4THENFUCSI=PUCSI-1:PUL3-SI=PUL3-S)-1 


id 
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1 A210dWOI3WoN 
#'99 Ardathr A 'A 'A’A "A "Aa "arar’d A A Ara A '@ "ar ‘A "ARRthath "A "A "BBLan 
Ha THE Hk MBH 

Brag'ara'g'z'a'a"zulun 
g'o'p’a'a'p'a’a'sara'gararas'arg"ziara'geT'a'@‘sETHlug 
B'B'IEI"BB'IEL'B'OHRL'D'B'IS HB B' Da ann aa da Ban auldn 

| x MOUSE Wk HEN 
| B'Ba'Da’B Ara aHLuN 


pPS'B'B'zE'B'a'zerB'a st 'B'B'BzrBtatat 'dtd’2T Ba Br2T Bar 2T'8"BBlHN 
Pa U 5 Bd = 1 52 = Bag = Ba Ed 5 5 5 52 = Du Da Da = 5 = ER 5 ER Bd 2 5 Ba 5 Ba a Ba = Ban Ba Ba a ni = ni 


: 65, ® 
SSTas 


Wiek 43934 IH #44 133 


HBEBS 


AS 
SREAS 


aBzas, © 


AIZBG | 


AIZAS 


ASZAS | 
APZAS | 


SEZBS | 
: BEZOG 


BES 


aIzas‘ 


ABEAS 


: BBTRS ı 
A2Ias 


| B’B’a'a’a'a'aB'ar2’sT'A"92"TalHn 
Aa’Tf “T "ArSB'T'e mare "B2'G A sat] "Arpa'T "AbatT "ArBasT ra>T "A’#asT FFeHlHN 
B’saT 2'B!Bat zZ tB'Bar 'Z'atadt dt zer IetBtzbr Te tB zer Eee Eshldn 


“* 2 4313145 M30N3H3LS5 Se 34 


: BEIBG' 


| Brarata'ataratdtBtBratBtZiolLon 
er B'2 zu’ zu TzhtstBitBTztgtBtpetgtoatpBtT'BtsaT "BzT'a'BaT "ZPHLHN 
B"BaT 'z'B’BsT '2BBaTttztatust Zr zer 'T2 Bel TetrBtzbl ee Bt za EIHLHN 


“E 2 3313145 A3U0N3anHT Kr 38 


as185 


ASTES | 
: BPIBS ı 
GEIOS | 


B2EIAS 


aTTes, @ 


AaTas 


: AEOAG | 
SBRas ' 


- | . aBaas ! 


% B'a'B'B'B’'a'a'pze st Bra TBBz’BHlLHT BZBBS 
ge 9'538 'B'88'TE 888 'BZ BP TZ DPI TED POT TB B2T RBB Zr OHLHT DIBAS 
Bat er 'BtB2zT tr atBeT zeit tat arte BirBtE'B'2Iz2tE'B'252 'EBHLHN 


BSBBS | 


Ei | : OpBaS : 
> Wk 7 N3I3IdS ASTNFHILS Mk MIA SEBBS | 


P& | acaBs 
1 pe Re Kr B'B'BB'a'aB'ZI DB Br OO aRZ'R'BRHLHT BzgaS. 
. : ABI TES'HBIBB'ES DZ DAB BR HE 'BTOB TZ A HI TZD BIT ER TABIT "ZRIAHLHT ATBAS | 


Bert ’er'B'B2T '2r BB zrBtszttatatpBtE'B'rBtE'D'rziz'E'B'ZzG2 'E'BHLHO BOBDS 


ı SbBAR 
“e# TI 33731Id5 33AONH3ANMHT BAR Y3H el 


B2ETZOLON 
BBrFOLDONSHL«Cu=#NISI: FNIL39: 1 ’BETLIHM: 9'856 73304 
2 PTEBNd. a’Tre3N0g 


& N3’3lIds TUUNI3 HIGN 3I5 N3TIOM«LNISI:5I548: 
B=etzind:A=cT)Nnd 
B=lZ)U5: Be T3U5:183N: LA3N: Bel H)d5: EL T=A303: Z0LI=490I: =: LAN 


I%3N : LA3N: BBEOLO=I303: (2 CH) EUNDSTINLNIYI:5I545: T-2#4 "PT Z3904:8 "IT IZINOI DSRR | 


ei I%3N : BBEOLO=AU0DI: CHISENLNIUI:SI5A5: T- SRH "PTZIN0I:0 "723909: 970 LB=THY03 
BETZOLDEINSHLZEICHPIUSAI : 201 T=H303 
| IX3N:8'"P+153404: ILX3N: UOLO=9303 £ 
EE’P+IS3N04: CE Biel: CT BIN IS3aNDA: CB’ BIN" THIS3N0I 52018 =U403 
Fa a ae a A BGE 





u 


G661 
' 3N373138 aM AB6I 
u: 34 SBEI 
| NAML34: LKIN:SISAS:E"PIZINDA BEST 

ı EULNISANSHLHCINHII SZST 


FCHISMALNINH:SISAS: gE'TIZ3HA0I: LX3N 
| ca HI LNIBINSHLTECHS3I 
Er TraRcHiNd EHI FOINFLSTIFAHIECH)ENd 

"CHI EHEN LNTYI:Z0LT=HU04: EN . INT UI: BEBISEIHDA 


«@8 « LNIS4NSHLH=NIH AI: 53545: 9E " TI2I 04: 


 EOLT=ENO4:SISAS:BZTIZIND: 


FEB 
N3E30SNB INHLSTI314S En 
SBSTIOLOH : 


BRRERLEHNIIER EEE ZDESRIER FRE 32 
IH S3UE=(5)45: I+U5=85 


888 TOLDONSHLE- 85 "S-EI4SCCBS"SIASINBZ+CHS"S-EIJSPCHS" 3345409705 '5)453I € 


I+cB5 'S)d5=CH5 "5345 

Nd-Eefjd: T’NB-EHE2I823N04:B 'NIEHE2IBFIADI Bet ziNd: Bet tind 
BBBETOLDO 

BBTTOLOSNIHLSESCSIMNAAI 


za), © | 
SIT | 





SBEL IMF/INNF 





sa316 DATAB.SB: 5.8,24,6,8, 2:8:8:8,; 2.8.0,0,8,0,0,8, 8:6:8,8,8,68,0,8,8,8,8,;8 
59985 REM 

5sss5e Ken DArfs FIEE CODE 

ss En 

Saase TETRIEs, 228, 141,2, 228; 169,1,141,8; 112. 173.9, 228. 168; 281, 127, 248, 27,266 
Seas TETae; 112, 173,8, 112,288, 19, 162, 32,173. 248, 7,201, 38: 288, 2, 162,33, 142, 299 
saue2 2E1#7.185,8,141,8,112,152,41,1,288,3,32,4,97,152, 41.2: 208,3:32:18,97 





SEGES 
Sasas DATA9IE: 238, 12.112.174, 12,112. 224,3, 208,5. 162,8,142,12,112.189,255,96 


‚ 68089 


= BH7#132,41 4, 288,3, 32. 32.97,152. 41.8.2088, 3, 32.46, 97,173, 1,220, 168, 201 


DATRZ2S5. 248,27, 206,1, 112,173, 1 ‚112,208, 19, 162,34, 173,249,7,281, 34, 208 
DETRZ, 162,35, 142,249, 7,169,8, 141. 1,112,152,41.1:288,3,32:68,97,152, 41 
DATAZ, 288: 3:32. 74,97 ,152.41:4,208,3.,32.88,97,132,41,98,289;3.32, 122,97 
DATAIS2.9, 168, 16, 136. 288, 253. 202. 208, 259,32, 1,99, 206,8, 112, 248,3, 76,18 


DATA141,8, 112,32, 125,99, 169, 8, 141, 38, 288, 32,1,99,32,166,98,32,1,99, 173 

















' 58811 DATAB:8,8,8.0.0,8,0.8,8.0,0.9,0.9,8.0,8.0.8.8,80,8,3,3.8,8,8,8,8,1.1,2 mw 
52Biz2 DATAB:8, 173, 1.288; 281.88, 240.6, 206, 1.208, 206, 5,209,96,173,1,288, 201.208 “= 
' 58613 DATA248 , 6, 238, 1,288, 238, 5: 288, 96: 173,8, 208, 201. 24, 240,6, 206.8, 208, 206 '=F 
sale DATA4. 288,96. 173.8. 208, 201.162, 240, 6.238,08. 208, 238, 4.209,96. 173,3, 208 Ta ee 
' 66815 DATA2B1 88, 240,6; 206,3, 288, 206,7, 288,96; 173; 3, 208, 201, 208, 298,6, 238,3 u 
: EBBiE DATA2BB, 238, 7, 288, 96, 173, 2, 288, 281.184, 248, 26, 206, 2, 2088, 16:8, 173. 16,208 . 
' 68817 DATA41,253, 141.16, 208, 206, 6,288, 16:8, 173; 16, 208, 41,247, 141,16, 208,96 = 
' sagle DATA1YP3, 2.208, 201.64, 248, 26, 238. 2, 208, 48,8, 173, 16, 208,9, 2, 141,16, 208 Bi 
58819 DATAZ38; 6, 208, 48:8, 17316, 208, 9,8, 141, 16. 208,96, 169, 15, 141,21.,288, 169 lazr 
' 58828 DATA1S. 141,24, 212,169, 192. 141.1, 298, 141,5: 298, 169,96, 141,3, 208, 141,7 en 
ı 58871 DATA288, 169, 224, 141,2,228, 1659, 180,141, 16, 288, 169, 24, 141,0,208,169, 32,141 el 
' sa022 DATA4. 288, 169, 54, 141. 2: 208, 169,55, 141,6, 208, 173.9, 228, 168;,41,1,208,10 a 
ı 68023 DATA173,1:288, 281, 168: 248. 3,32, 11,97, 152.41, 2, 208,3, 32.18,97,152,41,16 Br 
Sue DATAZEB: 8:173,2:112: 240,3, 76, 47:98, 173; 1,228, 168. 41,1, 208:3,32, 560,97 = hen 
606025 DATAR132. 41,2, 208,19, 173, 3.208, 281, 120, 248, 3: 32,81,97, 152,41, 165, 208,8 Tin 
ı 688265 DATA173:3; 112; 248,3, 76,91,98, 162, 16, 168, 255, 136, 208: 233. 202, 208, 238, 76 Kush 
' 88827 DATA212.97:173,8, 208, 24, 185, 24, 141.8, 208,173,1,298.141,9,.288,169, 31,141 at: 
SEdzB DATAZI.288, 173,16, 268: 41.,239, 141, 16, 2098, 169, 2, 141,4, 112,169, 129, 141,5 Ke 
' 68829 DATAL12,32, 135: 98, 76:0,96, 173, 2, 208, 56, 233, 26. 141.8. 208, 173,3, 208, 141 - 
' 58838 DATAS: 268, 169,31, 141,21. 288, 173, 16, 288,9, 16,141, 16,268, 169,130, 141,4 „zu 
58821 DATA112,159,1.141,5, 112,32, 133.98, 76:8,96.169,5.141,1,212,169,8, 141,5 
' 66832 DATA212: 169, 247, 141,6, 212,169, 129, 141,4, 212, 169,128, 141.4, 212,169, 8, 141 © 
86033 DATAL3: 112.96. 173,4:112, 48,23, 173;:8, 268,24: 189,4, 112, 141,8, 289, 208,8 Les 
' 58634 DATA173, 168, 263,9,16,141,16, 208, 76, 222, 98.56.233,128,141,6,112,173,8,208. | _ le: 
' ı 68635 DATASS. 237;:6.112,141,58, 288, 281. 254, 288,8,173,16,208,41,239,141,18,208 “- 5 
' 508365 DATAL?3:5: 112; 48: 13: 173,9: 2088,24: 199,5, 112, 141,9, 208, 76.199, 36.233, 128 Ne 
| Zn . 5 DATAIlsl, 7: 112: 173:9; 208,56, ers re 112, id1 3.288,96, 173,30, 288, 188,281 ui Fin 
ı 7, 658638 DATA28, 288,3: 76:21:99; 152, 2081, 24, 288, 3,76, 73:99:96, 169,2, 141,4: 112, 173 IE 
' 58833 IATR38, 208. 32,.3; 1068, 173,8, 228, 168. 261, 127, 248,27, 152,41,9,208,6,169,129 3% 
| © ; sbade DATAI41,5, 112,98: 152, 41.10, 288,6, 169, 1, 141,5, 112,96. 152, 41,8, 288,5, 169 = cu 
Eandl DATAA, 141,5, 112,96, 169, 138, 141,4, 112, 173, 30, 208, 32:3, 188,173, 1,228, 168 k6s 
| „ ' 68042 DATA201,255,248,27,152,41,5, 208,6, 169, 129, 141,5, 112,96, 152;41,6,208,6 ® | 
ı #1 68843 IATA169:1,141:5,112,96; 152: 41.4, 208,5, 169.9, 141.5, 112,96, 173,4, 112,48 
| BEE DATA1i1,173,8, 208, 201,184, 2098,3,32,152,99,96,173,8,208,201,168,2098, 3,32 , _ 
| © : 680845 DATA132, 99,96, 141,5, 212,169, 243, 141, 6,212, 169,18, 141, 1,212, 169,129, 14 © Z 
' EBdds DATA, 212, 169,128, 141,4, 212, 169,255, 141,13, 112,173, 9,208, 201,180, 176 
: Sada? DATAS. 169,255, 141,11: 112, 201, 215,48, 32, 169, 255, 141, 11, 112, 96, 173,9, 208 =} 
ERa4s DATA2B1. 74, 240,33: 201.235, 240, 29,173, 16,208, 41:16, 208, 7,173,B, 208, 201 4 
58043 DATA, 144, 15,173, 16, 208.41, 16,248, 7: 173,8, 208, 281.80, 248,1,96, 173,13 N 
' ‚ 58856 DATAi12:288;6.169; 255, 141,11, 112,96, 169,1: 141: 11: 112,96, 32, 139,98,32 = 
saBs1i DATALSS:98:965 Bi 
en Pe al Au Per Verttenfichung kan rund onschsgum 
ostsee Bez gune | Min | ERFEREEE 
erscheint als 2. Monate Im en am Anzeigenannahmeschliaß: | = 
Trori-hertig, HA Wehreiai 1 een an Jnweis 3 Wicben vor Erschenuagptenmin Berugipnese, 
| Teelon. DO 61 21 1 26 50 Eiruneihall &- DM 
a Aa ih an VaRaS er Dr. | Anne Kg Nee Le > 
Shegiried Kuh, Fiamk Bra Haren Werd, sandern mur an den Verlag OO 


FaRR Grede, ‚(ltned Schema 


Freia Mitsrbeiler: 
Voker Beste, Fol Freiag 


Gesamihersiellang: | 
Ergehhaus Dierk Kassıh, Frankkater 56-18, 
Kl) Kan 5 
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Auralgesleitu 

karkt- re A Geselschaf 1 Weiben 

Tekuonemmubeng KG. Hobenektmnsbt.: 60. 
UpEerLANE sberuallber: 

000 München #0 


Erscheinungsweite: 
Erg a 
HOMEGOMPUTENR ii Anıtang des Monats 


Urheberrecht: 

Alta in HOMECOMPUTER wersenikchlen Bie- 
Irdge nd urieberrpehöich geschätrl. Ale Alschte 
auch ‚Übersetzungen, vorbehalten 
Aepredukhiongn jeder Ar (Fohokogien, Mlcrelim, 
Era) in: Dilenvenuibellungzanlsgen vom) 
bedüren der Schnilecher Geneemkgung BES ver- 
East. Ale ver eeiichhe Sollaane wurde von Mb8- 
sıbettem des Verlagen oder won freien Milärtes- 
fein stell 


Aularen, geraeet e 

Dee Vertän name Manusingee und Software nur 

Versftentlichung geme an. 

Gilde kene andere Verinäarung geräflen gain, 

Bat Gehen ar van Anis; dad Ge mi einen 

IranGERt von 120 DM eo aboeruckter Seil 
im Heli Eererslangen Sind 


Titelaht: er, 
Yerbwaleier H. Ksfe, Eiehannge 


JUNI/JULl 1985 


Er u 


m — ee 


JUNI/JULI 1985 





Yon Ihrem Chef, Jacques Cousteau, er- 
halten Sie den Aufirag, mit Ihrer Unter- 
wasserkapsel Proben von seltenen 
Pflanzen und Tieren aus. der Tielsee 
aufzunehmen. Doch ein neidischer 
Kollege, der Ihnen feindlich gegenüber- 
steht, versucht Ihre Mission zu sabotıe- 
ren und legt Ihnen tödliche Minen in 
den Weg. Hüten Sie sich auch vor tödlı- 
chen Fischen. 

Es stehen Ihnen fünf Unterwasserkap- 
seln zur Verfügung, voll manövrierfä- 
hie und mit unbegrenzier Munition. 


1. Bild: 

Die Unterwasserminen Ihres Gegners 
schweben auf den Meereserund zu. Sie 
müssen von Ihnen abgeschossen wer- 
den. Detonieren zwei von ihnen auf 
dem Boden, werden Sie durch die 
Druckwelle der Explosionen ins 2, Bild 
geschleudert. Berühren Sie jedoch ei- 


‘nen giftigen Fisch, wird Ihre Kapsel 


Zerstört, 


2, Bild: 

Sie müssen eine 5000 Meilen lange Un- 
terwasserhöhle durchfahren. Auch hier 
droht Ihnen Gefahr durch Minen und 
Felsbrocken. Schießen Sie eine Mine 
ab, werden Sie durch die Druckwelle 
für kurze Zeit beschleunigt. Sie fahren 
gegen die Zeit, da Ihre Atemlufivorräte 
beerenzt sind. (Je schneller Sie fahren, 
desto mehr Punkte bekommen Sie.) 
Aber Vorsicht! Prallen Sie mehr als 
Tmal an die Wand oder an einen 
Brocken, wird Ihre Kapsel zerstört! 


=. Bild: 

Durch die Fahrt in der Höhle sind die 
Vorrichtung zum Aufiauchen und die 
Kanone beschädigt worden. Zur Repa- 
ratur sinken Sie auf'die tiefste. Stelle im 
Ozean hinab. Sie können eine Berüh- 
rung mit Schwebeteilchen, Fischen und 
Minen nur durch Ausweichen vermei- 
den! 


Nach erfolgreicher Reparatur tauchen 
Sie wieder auf. Sammeln Sie Ihre leız- 


Überstehen Sie vier gefährliche Abenteuer 








unter Wasser 





ten Punkte, indem Sie die Minen im Wichtige: Vor dem Abtippen oder 
oberen Bildbereich zerstören. Berühren Laden POÖKE 43,7:FPOKE 44,9:POKE 
Sie auch hier weder Fische noch Minen. 2310,0:NEW eingeben! 


Das Spiel wird mit Joystick 
in Port 2 gesteuert! 
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4 REM VOR DEM LADEN ODER EINTIPPEN DES PROGRAMMES VON HAND EINGEBEN ° 
24 
' 3 REM POKE43,7 :POKE44, 9: POKE2318, 8: NEW 
4: 
5 
? 


| 16 REIHE aha RC 
| ı1 REM | f 
| iz Rerik üÜOGCGERH-GRARME # i 
13 REN # \ 
14 RErik cc) 1985 BY I bi 

15 REMA # | 
i6& REM HANS ERER ri | E 
i7 REM L | be 
i8 Rerik | Mi | It: 
| = FREI BR Ba a ea % 
wg > REflaea 00... , LCOFMÖODORE nen ı ® he 
her 3 Au ke 
' 38 REM ---- JOYSTICK AN PORT 2 ---- Kite 
9 .e] 
| ‘ Je E Bi 
, da V=53248:51=54272: 10=56334 ar 
' 56 FRINT"IIE DATENFRUEFUNG" Ä Er 
52 FORBL=1T04:$=8 ei | un 
54 FORI=ET082:READGIS=S+!NEXTI u 


55 (0SUBEB:NEXTEL iM 
59 G0T067 je 
58 IFBL=1 AND SC>4BB2THENBS | 
61 IFBL=2 AND SC>5166THENSS 

62 IFBL=3 AND SCHEZESTHENGS 

53 IFBL=4 AND SCH3B43THENBS 


&5 RETURN 
E: ! 
57 S=d:FORI=1T069:REALQ:S=3540:NEXT:BL=5 | 
=3 IFSCH4ESITHENES | 
78 S=@:FÜRI1=110117:READG:'S=S+4:NEXT :BLe6 
 ?ı IFSCHLSB43THENBS | | 
72 S=g:FORI=1T0148:READG:S=S+Q0:NEXT:BL=?7 a 5 
75 IFSCH22B1@THENES Be 
| ' 76 Se: FORI=11043:READI:5=5+0:NEXT:BL=8 | mreı 
@ ı 7? IFS<DS4BBTHENSS | ı@ 
| ' 78 S=B:FORI=1T0156:RERDW:5=5+0:NEXT:BL=9 Ä ei 
' 79 IFSCH19982THENS5 B>; .s 
' 88 Se8:FORI=1T0142:READO:S=S+0: NEXT: BL=18 
, Bi IFSCHISO7STHENBS | 
, ' 82 S=0:FORi=1 10128: READO:S=S+Q:NEXT:BL=11 
83 1FS<915981 THENRS 
34 GOTOIB | 
. 85 PRINT" FEHLER IN BLOCK" IBL:STOP > 58 
ze PRINT" URTEN 0.K BITTE WARTEN" | | 
98: 2 5 
39 REM -—---BLÜCk 1----- | i 
{ 1De REM BHKKAFSEL LINKSHMR se 
1 : Ba 
192 DATAd.50.0,0,231,8,1,129,128,3,8,192,2,38,64,6,6.96,12,6,48,8,398,16,9, 139,16 
' 183 DATA255, 231,88, 255, 247,86,9, 143, 88,8,69, 89,8, 127,88, 12,64, 248, 6,223, 224 ei 
184 DATR2, 222,64,3.28,192,1. 129, 128,8, 231-8,8,68,8 | [Ese 
18 . ie] H a 
108 (e 
| 189 REM -----BLÜCK do. | ke 
| | 118 REM BERERKAPSEL RECHTS Mbkilakikik 0 mu 
447 4 ei 
‚ 115 DATA, 69,6,8,231,8,1,129,128,3,8,192,2,120,64,6,96,96,12,96,48,8, 128,168. | „ 
' 116 DATA225, 144, 18, 231,255, 10, 239, 255, 18,241, 144.19, 252,16, 18,254, 16,192 '@ 
' 117 DATA4B, 7,251:95,2, 123,64: 3,55: 192,1: 129, 128,8, 231.8:8,60,8 u 
' 119 REM -----BLOCK 3-——-- ei 
| 128 REM MM MINE Mae eo 
| ' 122 DATAB,8,8,0,60.8,9,233,8,3, 178, 192,14.178,176,58, 178, 172,234,85, 171 | ee 
„ ' 123 DATAZ33,85, 187,229, 125,91 ,229, 125,91, 233,85, 187, 234,85, 171,58, 170,172 + 
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BE 
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30 FOKEYV+39, 1:POKEY+44, 1 
; POKEV+28,252: REM MULTICOLOR 


56 PÜKEVW.,S6 :POKEW+1,158 
5i POKEV+21,25 
; POKEY+4, 50: FÜKEV+S, 255 


. PRINT"T" 


REM -----BLOCK 4----- 
REM Wiki EXPLOSION Mlkalik 


DATAL4, 178, 176,3, 178, 192,8, 235,8,3,68,192,12,8,48,49,9,12,192:8,3,192,0,3 


DATAB:6:8:8,8.0,8, 13, 112,4: 189, 128, 2,97. 16,19, 2,128, 25, 148,64: 28,209: 128 


ER BLICK S-——- 


REM 
REM PPRFR FISCH "LInKs LE 7) 
DATA9, 159,8,9, 153, 3,63, 255, 14,53, 85, 281,209,85,85,21,87,245,213,92,9 


DATASI.,38, 14,3, 248,3 


St REM Ra: FISCHSCHWARM RER 


4 DATR2,223,8,3,1185, 192, 16, 126: 8,5, 127.0,3, 248, 128. 17.133: 64,5: 16,8, 0,46 
DATNI28:08;: 140: 8: 2,48, 8,0: 8:08:08: 32,8,8:U:08 


DRTAB,0,8,3,192,8,51, 248.8,63, 248,0,51,192.88:0,4,84:8,3,84,5,4,88, 74 MM 


| 3 DATAL2E,D, 723, 128:8:59;9,68, 8: 2:61:08, 2, 253,8, 12] 


POKESS, 64: PUKESS, 156: POKES1,64:POKES2, 156:REMA BASIC ENDE AUF 40000 Mi 


RESTORE | 
FORI=8T062: READO::POKE?B4+ 1,0: NEXT 
FORI=BTD&2 :RERADG:FOKEB3Z+T,D: NEXT 
FORI=896T0959:FOKEI,B:NE#T 
FORI=92870925:POKEI , 284:NERT 


15 FORI=BTO&2: READG: POKEISEH+T.Q: NEXT 


FORI=8T062 :READG : FOKE2848+1,0: NEXT 
FORI=2112T023893: POKEI,B:NEXT 
FÜRI=8T0Z6: READY: POKEZi1I2+1, 0: NEXT 
FORI=BTO41 :RERDU:POKEZ176+1.0: NEXT 
FORI=5264271052984 :READQ:POKEI ,Q: NEXT 
FORI=529481052982:READQ:POKET, Q:NEAT 
FORI=529927053147 : READG :FOKEI:D: NEXT: REM 


5 FORI=40997T049143:READO:POKEI.G:NEXT 


FORI=53149 TO 53213: READO:POKET.G:NEAT 
FORI=48154T048288 : READG:POKEI , G:NESXT 


3 Mk=5:Ped:$P=i 


GK=52638 : G=52637: ER een HFr=352348 
Ve53248:51=54272: 10=56 


: Ti=48182:T2=40123: ec eaud7: T3=4B164 


POKESI+24,15:REM LAUTSTRERKE 
FORI=W+8 TO Y+15:POKEI;:8:NEKT 


' POKEGK.2:REM GESCHW.KAPSEL 


FOKEGM, 1: REM " MINE 


8 FOKEGF,3:REM " „FISCHE 


POKE2#43, 11: POKEV+29, 11: POKEV+23,8 
POKE2441 , 14 POKE=B42, 15: POKE2843, 34 
FOKEZ044 , 33 


POKEV+37,2 : REM 61 

FÜKEV+3E,8 : REM il 

POKEV+41.1 :FOKEV+42,7:FOKEV+43,7 
IFTL=BTHENGÜSLB2BBBB 
FOKEW+6. 159: POKEY+8,56 


POKEIR.PEEK( IQIAND2S4 
POKE?58, 168 POKE789, 285 
POKEIO, PEEK? IQ)OR1 


POKES3281,3 :POKES3236. @ 
IFSP=2THEN3BZB 
IFSP=3THENGBBR 
IFSP=1THENP=B 


; FOR1=562561056295: FOKEI, 4: NET 


FOR#=8T033 | 
Z= INTERHDE LIE +1: ONZGOTOS7B.471,472,473 
u=1a6: GOTG4BB 
4H=111:G0T0488 
H=121: BarOaeR] 
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SCHUSSROUT THE CHUHENERMERUH ACHERN 


| se 
ee, a 


Lee . T _H 


r u Ir" 
E . & = -r rs 
= un mn © nn m - in m 


EEE 





473 W=38 :GOTD48B 
488 POKE19S4+%.W:NEAT 
485 FEINT"BPUNKTE: " 


486 ee 


499 :REM LAUFENDES PROGRAMM 

sad POKEY+5,8: SP=i :POKEY+Z21.23 
Sid J=sPEERi563203: ei 

Si da NT"ZUBBBPRBBI":;P 


ShP 
Se IF CIRNDIG)=OTHENGOSURSOR 


SYSMP 
558 IFCPEEKCV+3B)ANDII=FTHENFOKE2843,32:00T0 6588 
568 IFLPEEKCV+3B)ANDI?)=17THENPOKE2844 32: 60106588 
E7@ IFPEEKLV+SJ>22STHEN FORI=1T028:POKES3298, 1 'POKES3288,9:SYST1:NEXT: MERMB+L | 
575 IFfB=2 OR PISBATHENMR=B: GOTOSBRR 
599 GOTO512 
508 FOKE2842, 15: POKEON, INTERNDCHMBD+ 
685 IFHV=1THENGSO 
E18 M=INTERNDLIHH2ZEHH 
628 POKEV+LG. PEEKCVHLEIANDZSL 'POKEV+4,M 
625 Hv=1 
EaE RETURN 
858 M=INT/RNDCLIRESI+HL | 
659 POKEY+16., PEEKCN+LS>OR4:POKEN+4,M 
678 HV=B: RETURN 
799 REM--- UP SCHUSS -- 
au8 34552992:3755L 
305 IFCPEEK<V+31)ANDZI=ZTHENSYS4BB1 
818 SYST2:SYSSc 
g20 IF PEEK(2642)=32 THENSBR 
338 RETURN 


= POKESI+1,5:POKESI+4, B:POKESI+5, 12:POKESI+4, 129: IFSP=1THEN P=P+28 
318 POKEV+S.B:GOSUBSBB 
315 IFSP=2THENISB 


RETUR 
ssg FORI=iT058 :5=5+5: G0SUB5688 :31755C 
955 POKEVY+31 .8:5Y55C: POKEV+5,B 
954 5Y5 SC: IFCPEEK{V+31>ANDL?=1ITHENI=S8 ® 
978 5Y5 5C:5YST3:NEXT:'RETURN 2 


2600 REM --- BILD 2  HOEHLENFAHRT -—- 


saag9 POKEV+21.8:POKEIN, PEEKt IGIAND2S4 es Ma 
3882 PRINT"T' :POKES3239,7:FOKES3281,7 R 
aadd4 PRINT" AROBBBDBEBFHASE i BEENDET |! 
2595 FRINT'EBBEIE HABEN";P "PUNKTE ERREICHT" 
3855 PRINT"M UND WERFUEGEN NOCH UEBER";MK "KAPSELN " 
3815 PRINT" IKIENITEEEDREBBBBBBBBBK. FEUER >" 
sale FORI={TO100R: SYST3:NEXT 
s@1& POKEIG. PEEKCIOHORL:WAIT 56328, 16,16 
saa2a PRINT": POKES46. 8: FOKES3289,8:POKEY+1,218 
3a21 FOKEY+27,254: POKEV+23, 8 
3022 FORZ=1TD15 
2925 FORI={T048:PRINT"@ ="; :NEXTI»Z | 
25346 FORI=18241701663: Z=INT{RND?Z 1335 +1 m 
| 3ad4G ONZGOSUBZ188, 3288, 3388 
3058 POKEI.Z:NEXT 
868 GOTOS488 
sieg 7=39:RETURN 
3289 Z=ei1F:RETURN 
3308 Z=e128:RETURN A 
=4dg FOR1=-553951056235:POKEI,B:NEXT k 
7419 FORI=19384T02920STEP3: FOKEL.98:POKEI+1, 111:POKEI+2, 121:NEXT il 
3566 PRINT"ASZEIT:" 
36518 POKEV+Z1,23 
as52#0 POKES3251:3 
3638 TI$=" Boa" 
dad S=A:SP=2:B=d:P2=B 
aaid SYS SC:POKEV+31,B:POKEV+38,B 
da2d I=FEEK(56320) :5=5+ 18: IFS>SBBOTHENSBBB 
5 42328 IF{IANDIEI=SBTHENGOSLEBBB  SYSSC oO 
dädd H=INT{RNDEIIE4O : IFHXSTHENGOSUE4SGE 
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Schon gehört?! -— ++- Schon gehört?! - —++- Schon gehört?! -- ++- 


Der TROÖNIC-VERLAG sucht in den Computerzeitschriften „COMPUTRONIC*“-und „HOMECOMPUTER* den 


 software-Champion 1985!!! 


Es warten tolle Preise auf Sie! | 


5000 DM in bar! 
Ein Farbmonitor 

im Wert von 800.,—- DM! 
Computer-Zubehör (wahlweise 
im Gesamtwert von 300.,- DM) 


Nutzen Sie Ihre Chance, beteiligen Sie 
‘sich mit einem Software-Programm an 
unserem Wettbewerb! 









Jedes eingesandte Programm nımmitan 
der Auswahl teil!!! 





Letzter Annahmetermin ist der 30. Sep- Einzusenden sind: 
tember 1985. Der Rechisweg ist ausge- 4, Spielbeschreibung 
schlossen. | een 
s ++ Datenträger 
ur Auswahl: res, a 4: 
| Wir stellen in jeder Ausgabe von COM- H Listing (nıcht unbedingt erforderlich) 
PUTRÖNIC mindestens drei TOP- . | - 
PROGRAMME: in HOMECOMPU- Einsenden an: TRONIC-VERLAG -— 


TER" I Topprogramm vor. Hierfür A a YAAA ıq 

trifft die Redaktion die Entscheidung | Postfach — 3444 Wehretal | 

(unabhängig vom Computertyp). Ä < EN] DT. & TR: FT\ PE_ 
Wird ein Programm zur Darstellung im | KENNWORT: SUPER so WARE 

Heft herangezogen, zahlt der Verlagein | | B] i 
Honorar von DM 120,- pro abgedruck- CHAMPION 
te volle Seite. Zum Jahresende stellt die 
Redaktion noch einmal alle als TOF- 
FROGRAMME ausgezeichneten Pro- 
gramme vor. Unsere Leser und die Re- 
daktion werden dann in der Ausgabe 





Nov./Dez. '85 das absolute TOPPRO- Wir wünschen allen Freizeitautoren 
GRAMM des JAHRES wählen. . ] fax | f u q* | 
Der Autor des Programmes wird in un- viel Spah beim Mitmachen. 


serer Ausgabe vorgestellt und mi DM 
>5000,— prämiiert werden. 


JUNI/AULE I9ES HOMECOMBOTER IF 





2 POKEY+21.8 B=Q: | 
| TP=VALETISI:P2=INTCCI/TP)#LO0BAB) :P=P+P2 
5 PRINT"IBBHOHLENFRHRT IN"; 


—— = — — = —— Te Tr — 


IFH=1 THENGOSUB4688 

SYS SC:S7SMP 

IFE=7THEN 8588 | 
IFCPEEKCV+31 ANDI I=1THENGOSUBSERR 

GOSUBSEAB:SYSSC 

GOTO4B1R 

SYSSC:H=INTERNDE1I#B) :POKELGSS+HMAB,S1 :POKETI+L,H+3 
FORI=1744T01984STEP4B:POKEI ‚, 224 :SYSSC : NEXT RETURN 
POKEST+1,5:POKESI+4 8: POKESI+5, 18: POKESI+4,33 


| BeB+1: IFB=7THENRETURN 


POKEV+29 ,B:POREV+39, 4: FORI=1T0198: NEXT :FOKEV+23, 3 


3 FÜRI=1T018 :FOKES3281.7:3Y5T2:'POKES3281,3 NEXT 


IFE=5THENPOKEV+39, 8: RETURN 


a POKEV+39, 1: RETURN 


ERRIET RUN DBBN T1$;" STRECKE: "5S:RETURN 


REM --- BILD 3 ABWAERTS -——- 
PRINT" N 
:IFSP=3 THENB=9:60T06018 


TP" ZEITEINHEITEN " 
BEENDET. DAS BRINGT"; P2" PUNKTE !' 
' EBBESAMT-PUNKTZAHL: ";F 


PRINT" 
PRINT"EM 





Telatı] 1, 
| POKE4BLI3,17: FORI=1TO1ARB: SrS5 T3:NEXT 
+ WAITSS3208, 16,16 


REM TON 
FORTI=Y+STOV+9 . PIKEI ı1:MEHKT: PÜKEY+Z1 f} e3 


POKE48193,123: 


A PRINT"TE"'SP=3 'N=d 
 POKEV+231.,B:FOKEV+38.8 


N=N+1 : IFN=1EGTHEN?EBB 
I=1INTERNDCBI #40) :HeINTIRNDE IP RZ? +1 


1 PRINTTAB{TI"e":FORI=BSTOH : PRINT: SYSMPSYST3:NEAT 
;ö IFCPEEKCY+3LDAHDI>=L THENGOSUBSBBO 


IFCPEEKtY+3B) ANDI >=ITHEN 6508 


| IFB=7THENGSOR 
i G0T06R22 


:REM --— KAPSEL ZERSTOERT --- 


POKEIG,PEEKt IQ) AND254 :POKEV+33, 7 
POKET2+1,5:POKETZ+11, 12:34ST2 
POKE2848, 32: FÜRI=1 10598: NEXT 


| FOKETZ+1,3:SYST2 


POKEV+2{ , 1: POKEY+23, 1:POKEV+39, 18 
POKEIG, FEEK{ IS} AND2S4 


i PRINT" TE" !POKES3281 ,8:POKES3288, 


FORI={PEEK (Y+1 3) TOASTEP-1 : POKEV+L, I:NEXT:SYST2 
POKETZ+1.,28:POKETZ+11.9 

POKEIQ,.PEERS IG>OR1 

MK=MK-1 
IFMK<=OTHENSBOG 
IF SP=4 THEN 2995 
| MEN PSEL ZERSTOERT" 





\ DRINT PRINT: FORT=ITO100:SVST3: NEXT 


PRINT'"IBBBBBESIE HABEN JETZT NOCH "Mk 
FORI=1T01809:5Y75T3:' NEXT 
PRINT" SEINE A vIEL GLUECK E" 


; FOKESI+3; 7: POKESI+18,5:POKE48193,65:REM TON 


FOÜRI=1T02B8 :545T3:FORZ=IT05 :NEATZ; 1 
ES 575 SC:54513:573T1:NEAT 


 G0T0 25 


:REM --- SCHLUSSBILD --- 


\ POKEV+21,0:POKES3281, 15: PRINT" TA" :POKE48193, 17 


PRINT" MEIN SIE SIND AN DER TIEFSTEN STELLE DES " 

PRINT: FRILHT" OZERNES AHNGELANGT" PRINT 
PRINT:PRINT:FRINT" JEDE BERRUEHRUNG DER KAPSEL MIT EINEM" 
PRINT" ANDEREN OBJEKT BEDEUTET IHRENDE II" 
PRINT:PRINT:FRINT:PRINT"s ACHTEN SIE AUF DIE MINEN" 


IE HOMECOMPUTER 


"RETURN 
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FORI=1T01880: SYST3: NEXT: PRINT" am BISHERIGE PUNKTE: ir 

° PRINT" MAIBBBBBBEBBBBBE. FELER > | 

WAITSESZA, 15, 165: FORI=1 T029: SYSSC NEXT 
FRINT"TM":FORI=19847T0282351TEP2:FOKEI. 233: POKEI+1,223:NEXT 
FÜKEV+38,8 

FÜRI=2644 102647: POKEI. 15: NEXT 

FPOKEV+21.249 : REM SFRITES EIN 

FOKEWV+B, 24: FOKEW+18, 196: FOKEV+L1Z, 158: POKEV +14, 200 
POKEY+28,11 :REM DEHHLUNG 
M=53149: Z=8 

:REM SCHUSSROUTINE UMMODELN 

. FOR1=-53857 1053863: FOKEI, 234: NEAT 
FÜKES3965, 243 

SFP=4:P4=8 

313 M:SrSMF 

| PRINT" 

POKEY+31,80:POKEY+38.8 | 
IFPEEKCV+319>1STHENGOSUB 7580 | 
IF<PEER(S632B> ANDIE>=ATHEN SYS32992:5Y75M:57ST1 
IF<PEEK(W+3G>ANDI>=1 THEN 6508 

SYS M :SrSsmP 


:REM GRUND 


PKT:";P4 











?145 IFPEEKCV+119<56 THENP4=P4+2 
’158 Z=2+1:IF2= 589 THENSBIE 

7288 GOTO7108@ 

7588 Pd=P4-28 

7595 FORI=V4STOVHS:POKEI:@:NEXT 

‚siß ForRl=W+8 TO YW+ld STEF2:POKEI. INTCRNDE 1782203 +25:NEAT 
7593 RETURN 


' 8860 


ZP=MK#200 :P=P+ZP :POKE49193, 17 

PRINT" TERUBEEBEEBBERH SPIELENDE ik 
PRINT" IBBEUSATZPKTE. CKAPSEL) 
PRINT"IMEBBILHRE PUNKTZAHL 
PRINT"EBBIEISHERIGER HIGHSCORE: ";HC 
IFHC<PTHENGOSUBESER 

FORZ=1TO7E 

SYET3:57SSLC | 
FORI=1TOIB:HEXTI,Z | A 
PRINT" ZREIEBEBBBEBEBEBBBBIA" HC; "N m" 
LWALTSES2B, 16,16 | 

PRINT "2BBBBERBBBBHONMENT...." 


"N; Zp 
Hp 


Bara G0T0133 


11999 
12208 
12861 
126682 
12063 
12064 
12065 


BIER END — 
© ; 8558 PRINT" Em 
8518 Ho=P 
. 8558 RETURN 
11998 : 


ER RE * HEUER HIGHSCORE mom m " 





REH=-----BLUCK 6----- 

DATA172, 157, 285, 238,5: 288,136, 208, 258, 172,156. 209,296, 7,208, 136.289, 2590 
DATP173,8, 228, 73.255, 41,31, 178. 41,4,298,18,138,41.8,288, 56, 139.41,1,208 
DATASE: 138, 41.2, 208. 72, 76,49, 234,169, 11.141. 248, 7,172, 158. 205, 173: 16,208 
DATAs1.1, 288,57 286,8, 208, 136, 268, 259, 169, 24.295, 8, 208. 176,3, 76: 195,205 
DATA172, 158,205, 238,0, 288, 136, 298, 258, 76, 195, 285,169, 13, 141,248, 7, 172,158 
DATA285, 173, 16:288,41,1.208. 82, 238.0, 208, 249, 12,136, 209, 248, 76,199, 285 


12618 : 


12828 


REM=----- BLICK ?7---—- 


12038 : 


12186 
12107 
12188 
12189 
12118 
12111 
12112 
12113 


12997 : 


12338 


DATA76.61,286, 76, 124, 206,76, 188, 206, 172,158, 205. 286, 1,208, 136.288, 259, 169 
DATASa. 285, 1,288, 176.3, 76,49, 234. 172,198, 205. 238,1. 208,136, 208, 259, 76,49 
IATA234. 172,158: 209. 238,1. 208, 1365, 288, 258, 169. 229, 285. 1.208, 144,3, 76,49 
DATA234, 172, 158. 285, 206, 1,288. 136, 288, 250, 76,49, 234,238, 8,208, 136, 208, 250 
DATA169, 65: 205.0, 208, 144,52. 76, 195, 285, 238,8, 208, 173, 16, 288,9;1,141,165 
DATH298, 234, 234,76, 195,205, 172, 158, 205. 206,8, 208,249, 6, 136, 208, 249, 76,195 
DATA205,206,0,208, 173, 16, 208,41, 254, 141. 16,288, 169,8, 141, 159, 205, 76, 195 
DATA295, 172, 158, 205, 206,9, 288, 136,208, 259, 76, 195. 285 


REM---— BLOCK 8 


12999 : 


13088 
13861 
13982 


IATR?06 ‚3, 208, 168,3; 238, 6, 298, 248,9, 206,8, 208, 240, 16, 136. 288, 243, 96,238 
DATAB: 208.173; 16: 208, 73,8, 141,16, 208, 968. 2065.,8,288, 173. 16. 288, 73.,16, 141 
IATAI16.:298,;96 


133088 : 


13958 


Te 


REM----- BLOCK 9 


13998 : 


' 14208 
: 148681 
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DATR173:1:298:141,3, 298, 173.8, 208, 141, 2: 2098, 173.16, 208,41,1:208,59, 173 
DATAiS. 288,41.253, 141,16: 209,173: 21:208,9, 2,141, 21:208,169, 11.205, 248,7 
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 14a02 DATA240, 47.32, 122,297 ‚234, 234,173, 16: 288. 79, 2, 141,16, 208,232, 124, 207,234 

' 14a83 DATA234,169,9. (4139, 288, 173,29, 208,41, 4,298, 37,169, 253,141,21,208,96, 173 

' ı {4084 DATA1S,288;:9,2,141, 165,208. 76,27 .207, 32.139.207, 173, 16, 288, 73,2, 141,16,268 
' 14095 IATA22,141.297,76.60,287.76:72,207,169,8,141. 39,298, 169,32,141,250,7,75 
idads DATATZ, 297, 162,112, 168, 79, 136, 288 2593, 238, 2, 208, 240,3, 202, 208, 243, 232,36 


"sag? TATALE2, 112, 168,79, 126.208, 253, 206,2. 209.248, 3. 202,208, 243, 232,96 


14995 REM----- BLOCK 18 -—--- 


_ 114999 DATA232, 165,156 | | Fee en 

© | 15008 DATA162.39, 168,38, 189, 192,7, 141, 192,7, 189,88,6,141,88,6,188,192,7,157,192 

| ' 15881 DATA? 185. 88,6, 157.,89,6, 185, 129,6, 157, 128,6, 185, 168,6. 157, 168,6, 185, 208 

| a ! ISedz DATAS , 157, 298,5, 199, 249,6. 137, 249,6, 185, 32,7, 157,32,7,189,72,7,157,72,7 

| - ı 15083 Mala a RE u HER Er eLer ee a 

| ' Sad DATA169, 255,159, 96:153.,168,8, # PP J | 

'® ‚ {6868 DATAI162,3, 142, 15. 212, 162, 8, 142, 18, 212, 162,9, 142,19, 212,162, 129, 142,18, 212 
‚ 168091 DATAIE : 152. 28, 142.8, 212, 162,9,142, 11,212, 162,9. 142,12, 212, 162,129, 142, 11 

„ ' 16682 DATA212,162,129, 142, 11,212,35 


' 16995 :REM --- BLOCK 11 -- 


Er) 
dei 
a7 
dl 
Ad 
un 


[5 


"I 17808 DATA168,3,238,9, 208,238, 11,298, 238, 13,298, 238, 15,208, 196, 208,241, 173,38 
' i7aa1 DATR2S, 170,41, 16,208, 16, 139,41,32, 288, 17, 198,41,64,208, 18, 138,41, 128,208 


17883 DATAB, 141, 15,293,96 | 
' 1agaa DATA162.32, 160,5, 142,213, 156, 148,214, 156, 173, 213, 156,141, 1,212, 173,214 
 DATALSE, 141,8, 212, 169,8, 141,4,212, 141, 11,212, 169, 18, 191,5, 212,141,12,212 


dr 
3 
oc 
ur 
[ur 
Pure 


: {2092 DATA1S9,17,141,4,212,141,11,212,238, 214, 156, 206, 213, 196,249, 202,96 


Pe 
af 
Wal 
7] 
5 


149950 REM KR TITEL or 


1] 
5 
N 
[ur 





‚ 286839 FRINT” 


' ed1da FORI=55895 TO 55934 STEP2:POKEI; 7:POKEI+1,1:NEXT 


nJ 
[u 
a 
ba 
je) 


FORZ=1T027 


ne 
je 
7 [Ch 
a cn 


‚ 28198 TL=f 
= ' 28208 RETURN 


TÜR 

ar 24998 : REM ### TITELZEILE KM 

© : 25808 DATAtS,5,1,2,32, 19, 14,1.8,32, 25,2, 22,53,56,57,49,32.29,8,7,9,18,23,16,15,3 ı 
Ä EHT 





Homecomputer 
Landstraße 29 
Postfach 41 
3444 Wehretal 1 


Unter der Rubrik „Kleinanzci- 
gen“ veröffentlichen wir. Ge- 
legenheitsanzeigen für Verkaufs- 
angeboie, Kauf- und Tausch- 
gesuche, Kontaktaufnahme bw. 
Erfahrungsaustausch usw, 


Neue Preise für 
„Kleinanzeigen“: 

Jede Gelegenheitsanzeige 1I0,- DM 
inkl. MwäL 


Chiffregebühr je Anzeige 10,- DM. 





20 HoMECOMPUTER 


| : Padss FOKES3Z288, 8: POKESI291,8:PRINT"TR 

'® ! zZaa1d POKEV+21.1:POKEV, 255:POKEV+1,97 

| | POKEV+23, 23: POKEV+39, 7 | 
| ET C ERN-GAME- - - -" 
| ®@ ı 22048 POKE49193, 123: REM TON 
| 


56129 READO:POKE1625,0:FORI=1T038:5Y8 T3:NEXT:SYS SC!NEXTZ 
>a140 POKE48133,33 en 

| 28158 FORI=1T0128:54ST3:84SSC :NEXT 

PRINT" IBEBERERREMBBK. FEUER >" 

= HAIT 56328, 16,16 

 ® : zaisa POKEwW+23,8 :POKEV+39,1 








Ich zahle oft nach Aechnusgsethatt 


Ich wünsche folgenden Text zu veröffentlichen: 


| Em 
A Ba I HAI Bd LE ER Bi | 
SEE 


[6 fi | 
ta De [Ed BET ER BI 0 IR] DEI La Eu ie BE ER ET 
IM Ra nen Bea En ES Fit Pe 1 PB 
KEENEHENSTERT 








| 
| ® . 17002 DATA19,96, 169,8, 141,9, 288,96, 169,8, 141, 11.288,95, 169,8, 141,13, 208,96, 169 
| 


Zutreffendes ankreuzen 

[] Anktufe 

DI Verkäufe 

[I Kontakte 

[I] Tausch 

2 Geschliftsempiehlungen 
[1 Verschiedenes 

U gewerblich 


U privat 


| 
FE 
12 | 
- mE 
mi Eu“ ER! 
ES dEiiheh | 1542173 


Pa Erz | 
+77 Urne 


Arsran tete ea eltern 
zireiilsisil)?, in 
Biss. 


1 
- 


a 
n 


4 


[2% 
Fr 
I} 

[3 
vie 


=: 
277 .. 
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— u 


sette+ 2 Joystiks + 3 Bücher 

+ 10 Cassetten mil SellWn 

0531500500 
bei AR. Schöne in Brg. 


# C-64: superschnelle Ac- % 


+ . viele  Zeitschnillen, 
500,-. Tel.: 


tiorı:  3D-FORTRESS 
(Raumjäger, Lfos, Ener- 
giescheiben, Laser etc.) 
und 3D-Vampir und 


PANZERFIGHT auf 730=, auch einzeln 20 ah 2, 
= 1er aan. 5 | 3 Suche Extended Basic © |900000000000000009 
Sehe, Lieerung a6 | 5 Module menge, O9 +" Aurkspoetnum 3 
Non 14 85 Nmbei |Tı 89: Alpiner/Car Wars/| 6 sowie Maschinen 90 „leer 2 09 
weg 1, urnberg Tombstone City/Ti-Invaders/ | © sprachprogramme z, B. © |© monatl. Info, bundesweit © 
Joysticks gegen Gebot. T.:| ® Fiugsimulator und Ex. 5 9 organisiert, riesige © 
= 0311/5127393 ö Basic Spiel Miner 2049 5 |6 FPf09.-Bibliothek usw. & 
Apple Il Comp. m. getr. O (USA-Version). o|0 melden bei: ie 
na Ile 3 Tel.07132/37608 |5 ASUC, Am Schürhof 17 9 
a I NoR-Kleincomputer, 10 || © 810 _ 4905 Spenge © 
Be: EOpENS Er Platinen, funktioniert, aus || °O2220200000000008 |9 Tel. 05225/2068 9 
+ 02922/2112 ab Zeitmangel zu verk., Neu- a 000000000000000000 


Tel.: 
U 


VC 20 u. 32 K Datasette, 


software, Literatur u, Joy- 
Stick, VB 450,—- DM, Flop- 
| py 1541, vB 550,— DM [1 
Monat altl). P. Seng, Tel. 














leres LÖAD+SAVE, sehr si- 
cher! 20,- DM, zusammen nur 
35,- DMI 
Info + Blitzversand von 
5. Schmidt, Lindensesstr, 9 
6030 Rüsselsheim 5 





sic + Cass.-R., Kabel, 
mod. Espial, J.-Adapter, 
55 Progr. auf 4 Kass., DM 








preis inkl. Monitor 1800,—, 
VE 300,-. A. Niedermeier, 
Tel.08067 /695 


TI-99/4A + Ex-Ba- \ 
sic + Sprach-Synthesizer 
+ Joyst.-Adapter + ca. 


Verk. 


|| 100 Prg. + Zubehör. vB. 












I i= 





Disk verkaufe ich (nur Orginal, 
also nur 1 x vorhanden): ROM 
Pac-Man, Donkey-Kong, Cen- 
iped Sick. S0,-. Disk, Ban- 


diis, Frogger, Pool 1.5, Sick. | 


70.- DM. Tel. 05652/1627. 
Elmar Meder, 


OOCCOOO00C00000009 


VC-20-Programme 


Fritz, Wichdorfer Str.14 | 
3501 Emstal ? - 





> 6900088000688 888 


suche Drucker für 7%X81 
02641/3365? 


Harditsitr. 1, | 


Go Br a] 7 A 
 Verk. TI 99/WA, ex. Ba- 0 ut Bad Sooden: llendorf 


Verkäufe Verkaufe Dragon 32, neu, Sn Er ae le Kontakte 
————————— | 398, DM, suche Disketten: || Zur.) erkauls — 
GO00000009000000000 |] station für Dragon 32. H.|| rue N UN (Hallo Spektrumfreaks, Ich 
 ZX-Spectrum: Tape-Ko- I ||| Bosch, 8653 Mainleus, SO EIDIe f SS REHNAN: möchte mit euch gerne.Prog. 
o pierer kopiert fast alle G | Gartenstr. 5, Tel. 092 29 / Be re ee tauschen. Liste, ob groß oder 
© Programme am Markt, © 7179 In: - all Afar | klein, an: Robert Weidinger, 
"zeigt auch KHeader.Daten. O|| Sky Diver, Basketball, Ver Schö tzlerstr. 10. 8050 
- (975: DM = 99- ss. w. lords, Breakout, Outlaw, era der same Diens 
* [SHübı, Klitscha, 18. A. Oma | Night Driver, Defender, | Freising oder Sams. Ä 
; o|f 2X81-Hi-Res-Toolkit, 256/192 | Astroids, Air Sea Battle, alle | 08161/4372 
@ #130 Wien O|| Grafikgunkte + 16 MC-Befeh- || noch in namen 
|29O00900900090900090 || le: PLOT, DRAW, ETEn: || von Atari für ca. 25,- DM pro | _J | 
“  |TI-99/4A + Ex-Basic + Datta- || ZX81-Turbotape, 12 x schnel- | Stck. Vom ATAAI 800 mit | Kontakt mit 2 x 81 + 


Spekirum-Leuten 
sucht, 


ge- 


Frank Brasche, 
Kleinreulherweg 48, 85 
Nbg. 


Fe 
suche den Autor oder Frogr.- 


Kass. Ass-2 ZX-81 Home- 
comp. 11/84. G. Alraum, 
8070 Ingolstadt, Eibenstr. 37, 
Tel. 0841/37288 


Tausch 


® 7%-Specirum ® neue 
Programme ® Tausch- 


börse @ Inio von 5. Sau- 
er ® Heideweg 8, 2720 








- 
- (mögl. gebraucht). Tel. 
069 / 8583157 A. Neuburger, Feldstr. 16, : 
—————— 7505 Ettl. 8, Tel. 07243 / 





Rotenburg ® l 
ELIIIITTIIITTITIIIIITH — 




















gut, aber in Raten! Chiffre: 
| TI-99 


3, 7117 Bilzfeld 


BAOBNNNNNNNNNNNNNNNNNNNNNNNNNNN 


| Bitte Liste beilegen 


er 


- 2.91 75. ul 
| 5 Suche: Gute und billige Soft- |Tauer 
| EPC464 Textverarbei- || Verkaufe Reset-Tasten für C-| ware auf Diskette für &4K Ata- nach arNerkalfe Atan Prg. 
| tun mit formatiertem || soo‘ | 16 K. Uwe Schöneberger, 
D a ich 64 und VCG20. Ohne Einbau | nm 600XL. Angebote an: Mi- | sonnenstraße 18. 665? Bex- 
j Uruck u. Untersireichen, nur Einstecken, Für 10,- DM | chael Ebeling, Riepener Stra- | gach ? ee 
| Menue mit B Unterprogram- || (3 Stck. 20,-) nur Schein, kei-| Be 7, 3061 Beckedorf ei 
| men, nur gegen Vorkasse. || ne Nachnahme. Zu bestellen | _ | | 
| | Überweisung aut Kto. bei: 5. Valentino Frankfurter OOODHGAHSHOHHAGHOG |Suche software aller Art 
| | 86/6884] bei der Handels- Sir. 285. 6300 Gießen. Suche käuflich Zeitschri (Disk.), für Atarı 800 XL u. An- 
in Lübeck. Empfä alr..283, ee EI Suche käuflich Zeitschrift 0 au ern: 
bank n Lübeck, Emplan- || | O Homecompulter 3/83 und Q| tic-Hefte bis März 1984, evil. 
ger: Christian Puckrandt. || eeseseeessesesesese | ;_7,54 außerdem CPL 5 auch Computer u. Analog, 
DM 23, ir Atari- e 2 1-8/84 u. 8/84, Listings D DENE EN ai 
I ar) | | @ - müssen lesbar sein. Chif- 9] went eusia 
} SONNE : 7 ODE 43 = H Ire 1 E ' Tel. 05032/61181 | 
Bi el, | | ö = | 
goy unerGrafik- | ® © = 
R Neiauls SURBFSIEN \ PUTILILIIIIITIL LI LUnslelelelelaiefninlafalalalalaralate Fe In | 
IS Fredgy”, Mit Highscoreli; Allse ara | ware ale Interessen- 
Is ste, EBEN Und S X TI 99/4 Ext.-Spiel nur für Er-| | Suche Peri-Box für TI aslalach= 
R 15- | M an ee S| zum absoluten Preishit von |} tet, Haken hierbei: Zahle 4021 Linz 
\ 1 
\ 5 
N hi 





| 
| Karbach, Remscheider Str. 
| _18, Sba0 Solingen 1 
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SANTA MARIA 


TI-99/4A_ 


Fe 


nit Exteng ed 


zu 8 





Sie haben einen alten Plan in die Hände 

bekommen, in dem:die ungefähre Lage 

eines alten Schiffes, der „Santa Maria”, 
verzeichnet ist. Dieses Schiff wollen Sie 
nun heben. 

Dazu müssen Sie 

I. das Wrack finden, 

. so viele Luftbehälter im Wrack un- 
terbringen, wie nötig sind, um es an 
die Wasseroberfläche zu bringen, 

.. das Wrack in den Hafen schleppen. 


Für die Suche steht Ihnen ein Echolot 
zur Verfügung. Sie bewegen Ihr Schiff 
in kleinen Schritten mit den Pfeiltasten 
„Ss“ nach links und „D“ nach rechts. 


Echo zu hören war, kann das Schiff 
weiter bewegt werden. Haben Sie die 
Position des Wracks geortet, wird dies 
durch einen anderen Ton des Echos 
angezeigt. 

Jetzt wird mit der Taste „T“ der Tau- 
cher ins Wasser gebracht. Um dem 
Wrack genügend Auftrieb zu verleihen, 
müssen von den 40 Luftbehältern, die 
Sie zur Verfügung haben, 10 Behälter 
im Wrack untergebracht werden. 

Aber Vorsicht! Auf dem Weg zum 
Wrack werden Sie durch viele Fische 
behindert, die nur darauf warten, daß 
Sie ihnen zu nahe kommen, denn dann 
beißen sie Ihnen den Luftbehälter ka- 


Sind Sie weit genug getaucht, wechselt 
das Bild und Sie schen das Wrack unter 
sich auf dem Meeresboden liegen. Ist 
das Wrack erreicht, gilt der Behälter als 
untergebracht und Sie werden mit ei- 
nem Punkt belohnt. Tauchen Sie jetzt 
mit der Taste „E* wieder aufund holen 
Sie sich den nächsten Luftbehälter, 
Wenn Sie 10 Behälter untergebracht ha- 
ben, taucht das Wrack auf. 


Nun können Sie es mit der Taste „D" ın 
den Hafen schleppen. Da sıch das Wet- 
ter während der Bergungsaktion zuse- 
hends verschlechtert hat, kann es Ihnen 
aufdem Weg in den schützenden Hafen 


passieren, daß Sie in cin Gewitter gera- 
ten und das Wrack, von einem Blıtz 
getroffen, wieder im Meer versinkt. 


nutt. In diesem Fall bleibt Ihnen nıchts 
anderes übrig, als wieder aufzutauchen, 
um einen neuen Luftbehälter zu holen. 


Mit „X“ wird es gestoppt. Jetzt wird 
mit „E* das Echolot betätigt und auf 
das Ergebnis Bent Nachdem das 





aan SANTA MARIA X 


Ce TITEL 

CALL CLEAR :ı CALL SCREEN 23: CALL MAGNIFYC43:: RANDOMIZE 

HIMMELSERPTSC "55RAA",#) 

LIDL. KE 18='" GEOBBERBBRBBBBLFTFTFFFFFFFFFFODIBGBEBBELFSFTFFFFFFFFFFFFFFFFFFEFC" 

| UNLKE?a="1ESFFFFFFFFFFFSFFFFFFFFFFFFFIFLFOBBBBBBBSBSEBFFFFFFFFFFEFEFBEBEO" 

UASSERA=SRFTEL "F",16> 

EODTE="dBRBRDERAAFERBBARERFLEIFL21FLFOFERBUNAANEBERARAAARRASAFS4BFFFEFEC" 

| ECHOSERPTRE "BGB", 4) 

FISCHSERPTEC "" , LI IE" SICPEFFFFIELD"ERPTEC "BO" , 20 IE" SECOBBBRCBER" 

KRAKENERFTRE "GO" ‚46 3 "3CSA7E3CSAASASASBL 

TAUCHERB=" ABBSABBERHBRAER 91000395051 UZTZERTuuedeeeeeleldedereDeDaLBzpeß" 

BEHRELTERB=FRFTEE "B"  ‚SB3’RRPTEE "BF",63 

| GRUNDSERPTEC"F",16) 

URACKISSRPTRE "0" ,S33R"IFBREFFIFFF" 

URACKISSRPTEC "BR" , 14 3" BBRICLBFBSSBIFFFFFF"ERPTEC "8", LEI" 4OBBBBHBOTFEFLFB" 

BLASENS="BRBIZUR44 RZ" 

HFi:HF2=B : ne :ı WF2=15 ıı WZe144 

P,2,2ZEa na = 

' 38a CALL CHAR(C48; HINMELS, 33: HASSERB. 96; WOLKEIM. 198. WOLKEZB , 124 WOLKELS, 188, WOLKE 
24,112,B00T8, 128, ECHOß# } 
19 CALL CHARC 124, FISCH®, 128, KRAKES , 132, TAUCHERS 68. BEHRELTERS: 122; GRUNDE. 136: UHR 
ACK18$, 1489, HRACK2S, 123, BLASENB ) 


2a CALL COLOR 2:HFL:HF2: 1:35:95: 12: 12,53 
33a FOR I=3 TO B :: CALL COLOR I.B,52:: NEAT I 
34a CALL HCHARC1,L:48,2569:: CALL HCHARCS,1,33,512) „ 

| “sa DISPLAY ATC24,23S12EC 189: "BEHRELTER:" :: DISPLAY ATC24.123SIZEC3HLB bDISP ı 

a AT 74, 193S17ZEC7 3: "PUNKTE!" :: DISPLAY ATl24,263:P 
sn | 
378 IEEX WOLKEN #8% 
AB8 CALL SPRITEt #2:96,UF1:17:40,4#3, 108, UF1, 17,68, #4, 194.,UF2:1:120,#9: I[d8,WF2, 1:1 
48) ' 
Se Ne MOTLOHT 827,8, 2:83,08, 2:84,88: 1:,#5,8; 1) 
49 

41A IE FISCHE HH 

' 42a FANDOMIZE ı:ı CALL SPRITEC HB, 124,7,99, 188,8, =C INTERHDKZB HB 3 3 RAHbOMIZE 


= ' FALL _SPRITEI#?, 124,4, {47,159,8:-£ INT{ RHD&39 )+6 )) 
; 430 RANDOHIZE :ı CALL SPRITEC#3,.128:11,129:48,8,1INTCRNDRZBI+E 3: : RANDOMIZE :: ER 
EN REL TEEN 128,14, 74: 118,9, INTERNDE3B +6) Hi 
ı 4 | 11 
' 45m I#X# URACKFOSITION KH 3 | | 


= 2 = ee in u 


22 HoMEcomPpuTER 


- + ST 
TA 
u un am ri r 


Un! 


-_ | 
B 14 \e v4 


En 


Tepe 


2 -, ErrT 
i Di ® Mn | 
=; ä bi 4 . ; i 
ur “ u “anti 
Weed: E ni 3 6%: tl ie gie.) 


| ri 
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{ = 2 —— u 
[3 = . - = “ u Ei 
Ar . - - - “ De 
= » ” ü ! 2 L3 


> 468 HP=INTEC2OS- 4141 DARND )+41 


' 480 FE BOOT ### 
ı 4980 CALL SPRITES#1,112,2,39,12 
' saB CALL KEYCB,K,S7:: IF S=B THEN Sga 


S18 IF K=69 THEN CALL ECHOLOT{E:WP,52,55) 


s ' 528 CALL WETTER({E,LB;HFi:HFZ2> 


‚ 53A IF K=68 THEN CALL MOTION #1.8,2)ELSE IF K=83 THEN CALL MOTIONC#L.8,-ZIELSE I 


) F K=#88 THEN CALL MOTIONC#1.8,8) 


5 IE SS{CCHP-3)0R SS>CHP+3)THEN SO 


ziel: 


ı 560 egaka 
' 578 TALL KEYCH.K,.S3:: IF S=B OR K<>84 THEN 578 
‚ sad IF K=94 THEH CALL SPRITEL #10, 132,2: 1T2:38-16; #1 1.69, 15, TZ: 38-20): LB=LB=-1 


PISFLAT ATC24,1Z2)351IZEI3>5:LB 


' 598 DALL COINECHIL:#E6:LD,Jd:: IF Je-1 THEN 698 
. 58A CALL COINCC#I1,#7, 10, J3:ı IF Je-i THEN 6386 
: 618 CALL COINCC#11:48,18,J3:: IF Je-1 THEN 698 


> | #28 CACL COINCHII,R9, 18, J9:ı IF J=-1 THEN 6980 


ı 53M CALL KEYCB,K,S52:: IF 5=8 THEN 598 
‚ 648 IF TZ>169 THEN 85 


'ı #58 IF K=38 AND T2{=169 THEN CALL SPRITE(C#19, 132,2, T2+44,55-15,#11,68, 15, T2+4,88- 


zA)ıı TZeTz+t4 


„ı A608 IF K=69 AND TZ>esZ+ld4 THEN CALL SPRITECHID, 132,2, TZ=2,85-16, 411,60, 15, T2=2,5 | 
ı 8-285:: T2=T2-2 


: 678 CALL WETTERCE,LB,HFi,HFZ) 

© | 68A GOTO 590 RR 

' 698 CALL DELSPRITEC#113:: CALL SOUND(480,.-6,2) 

‚ zaa FOR I=INTCETZ+B 3/8910 INTECSZ+14)/8)+4 STEP -1 


718 CALL HEHARE 1, INTECS3-190 378 943, 12331: CALL HCHARC I#+1, INTCC55-18 978 9+3, 121 3 ı 


ALL HCHARC9,1,121432) 


724 NEXT I 
aa CALL KEYCASK,SJ:: IF S=@ THEN 738 
' 748 IF K<>69 THEN 738 


' , 750 IF K=69 AND T2>=52+14 THEN CALL SPRITE(#19,132,2,T2-2,35-163:ı T2=T2-2 


' 76A IF T2)>=82+14 THEN 738 
778 IF LB>@ THEN CRLL SPRITEC#1B, 132, 2, 12,88-16,#11,68, 15,2, 88-20): LB=LB-1 :ı 


DISPLAY ATL 24, 1235I2EC3>9:LB :: GOTD 63 
788 CALL WETTER{E.LB,HFI,HFZ> 


‚ 784 IF LBeA THEN DISPLAY AT£14,19:"SIE HABEN ES NICHT GESCHAFFT" 


Ara DISPLAY AT£1&6,1)3:"VON 48 LUFTBEHAELTERN KONNTEN SIE NUR" IPI"IM HRACK U 
NTERBRINGEN" 


# ı 8ia DISPLAY ATC28,1):"NOCH EIN VERSUCH .J ODER N" 


370 GOTN 1524 

A3B | 

B4a I#kk BILD 2 #48 
ASB TzZ=4 


‚ 858 FOR I=ei TO 5 :' CALL BELSPRITEC#TID:: NEXT I 


87a CALL DELSPRITE(#10.#11) 


« Aa CALL HCHARt1,1,33,6723:: CALL HCHARt22,1,122,96) | 
' 394 DISPLAY ATE1,298TZET 183: "BEHAELTER:" i: DISPLAY ATE1,123SIZEC39:LB :: DISPLA | 
‚ 7. ATE1-13ISIZEL 73: "PUNKTE!" :: DISPLAY ATC1,2631P 
' aaa CALL SPRITEC#12,136.2, 144: WP-36,#13, 149,2, 144, UP-4 ) 


519 CALL SPRITEC#18,132,2,T2:33-16,#11,689,15,T2,33-28) ee 
372 RANGOMIZE ::ı CALL SPRITECHE; 124,7.25.199,0, 6 INTCRNDI3IB +6 33: RANDOMIZE :: 


ı‘ FALL SPRITEC#7,124,4,128, 199,8, -(C INTERNDR3B +6 3) 


238 RAHDOMIZE :: CALL SPRITEC#B, 128, 11,99,40,8, INTCRNDK39 463: : RANDOMIZE :: CAL 
L SPRITES #9, 128, 14,55, 118,8, INTERNDX34 }+6 }) 

248 CALL COINCE#I1.05:,19,J3:: IF J=-1 THEN 1848 

959 CALL COINCC#11,#7,10,J3:: IF Je-1 THEN 1048 

369 CALL COINCC#11,#8,19,.J5:: IF J=-1 THEN 1848 

ra CALL COINCC#11,#9, 19, J3:: IF J=-1 THEN 1840 

Saa CALL KEYCB,K,S?:ı IF S=B THEN 948 

ss9A IF TZ<£3 THEN 1178 | | | | | 
iamd IF ee THEN F=P+1 :: DISPLAY ATf1,26?:P |: GOSUB 1368 :: CALL BELSPRITE | 
e#11 3: GOT 


2 as Bi: 
' mia IF K=88 AND T2<=156 THEN CALL SPRITEC#1G, 132,2, 12+4,35-16,#11,60, 19, 1244,55 | 


' -ZA)ı: TZeTz+4 


‚ Jaza IF K=89 AND TZ>=3 THEN CALL SPRITE( #18, 132,2, TZ-2,53-16;#11,69, 15, T2-2,55-2 ; © { 


+ gyı TZaTZ2 


ia3a GOTN 348 

a4 CALL DELSPRITEC#1I3:: CALL SOUND<4BB,-6,23 | 
1859 IF P=i@ THEN CALL STEIGEN WZ. UP, SZ,85.WFI.UF2;P,LB?} 
iasa IF W2<=eSZ2 THEN 1298 


| jara IF Tz)eidd THEN 1120 


[pa = — 
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= = = u me ee mn mm Sr Sr m m mm See or zer 2 er m mr m IT 
.. it k 
u Pu a; 
= 8 | 


 — SEE SE" 2.5 BE: ME 5 
Fi: „ee, wen m u « 
wid I F im bi Fi 

.u = u Ds k 
” = pre _ [1 Pr 1 r ? 7 ? 7 


. 1aRB 


FOR I=INT{{TZ+8)98)T0 1 STEP =-1 
1239 CALL HEHRRET, INTEES5-1983/9 +3, 123 3 1 1 CALL HCHARC I+1. INTECSS-19 979 43, 1212: : n 
ı NEXT I Ä 
11aa CALL HCHARC1:1,121,329:: DISPLAY ATC1,ZISIZELIAF: "BEHRELTER :" 1 DISPLAY AT , 


1, 1Z23SIZEL3):LB 


111e 
1128 
1139 


1148 

_1115A 

©; 116 I 
1178 

‚ 11a 

' 1158 


1788 


‚ 1218 


1 22H 


‚ 148) 


123# 
1240 


12568 RANDOMTZE : : 


DISPLAY ATCL:LIISIZECFI "PUNKTE!" 1: DISPLAY ATC1,26):P 

CALL KEYEB,K,S):: IF S=9 THEN 1128 

IF K<>69 THEN 1128 A 

IF K=69 AND TZ>=3 THEN CALL SPRITEC#1B, 132,2, 12-2,39-16):: TZeTZ-2 
IF T2>=3 THEN 1128 


I£X#£ BILD 1 kr 


TZ=169 

FOR I=& TO 13 :: CALL DELSPRITECHT I: NEXT I 
CALL HCHARG 22:1:33,963:: CALL HCHARCL,1.49, 296) 
CALL SPRITES#1.112,2,33,55? 


CALL SPRITEC #2, 96: WF1,17,48:#3, 199, UF1:17,68, #4, 104, UF2.1,120,#5, 108, WF2. 1, 


FALL SPRITES #18,132,2, T2,55-16) 
CALL SPRITECHE:124,7,99, 199,8, -C INTERND#ZB JE}: ı RANDOMIZE : 


CALL SPRITEC#7:124,4,147, 159,8, -€ INTCRNDE3G I+6 3) 


1768 


ı« ALL. SPRITEC #9, 129; 14; 74,118,8, INTERNDFI3B HE) 


1274 


‘ 1378 


RANDOMIZE :: CALL SPRITE(C#B.128,.11,129,48,8,INTERNDKZBIHEI: : RANDOMIZE :: C 
DISPLAY ATC24,23SI2ZEC 189: "BEHAELTER'" :ı DISPLAY ATC24,1238IZEL3>:LB :: DIS 
ATC24,1F93S1ZEX 7 3: "PUNKTE!" :: DISPLAY ATi24,263:P 

KOT 738 

FALL KEYCO,K,S3:: IF S=9 OR Ki>68 THEN 12390 

IF K=68 THEN CALL MOTIONC#1L.8.2,#12,0,2,#13,0,23 


| CALL POSITION #1,ZE,SP) 


IF SP}=206 THEN 1368 
BET 1318 


IEXE BILD 3 #88 
FOR Ia& T0 3 :: CALL DBELSPRITECHT?:: NEXT I 
CALL CHARZ 123, RPTSC"F" 163, 124, RPTSC "9", 163, 1L II. RPTEC "8" BIRRPTEE"F",8),.128 


‚RPTSC"F",163) 


1788 
1398 
148 


CALL COLOR 13,13, 13, 12:9,16,11,2,159 
CALL HCHARC9,28, 128,13) | Se, | 
FOR 187 TO 4 STEP -2 ı: CALL HCHARC1,21,123,39:: CALL HEHARCI-1,21,124,39: 


NEXT I 


{418 


1668 
1678 
15#8 
1) 

1698 
178 


ı IF Ke74 THEH CALL CLEAR :: 
A EALL BELSPRITESALL3: : 


CALL HCHARC3,28,123,59:: CALL ACHARC2.21,124,39:: CALL HCHARS1,22:1153 
CALL LOCATECHIZ,UZ, 2,813, W2,33,#1.33,68) 
FALL GEWITTER{LB,2,5,BP} 


1 IF Z>=168 THEN 1588 


CALL POSITIONC#1,ZE,SP) 
IF SP}#a215 THEN CALL MOTIOHt#1,9,8,812:.8,8,#13,08,8 
GOTO 1458 

CALL HEHARK 24,1,33,32) | | 
DISPLAY ATC 14,19: "HERZLICHEN GLUECKHUNSCH 


3: : GOTO 14880 


SIE HABEN ES GESCHAFFT" 


DISPLAY ATC17,13:"VIELLEICHT SIND SIE BEI DER NRECHSTEN EXFEDITION WIEDER D 
HH 
ı DISPLAY ATC21,1>:"WAEHLEN SIE J ODER N" 


CALL KEYCB,K,S3:: IF S=B THEN 1528 

IF K£>74 AND Ki>73 THEN 1520 f 
CALL BELSPRITECALLI:ı CALL CHARSET :: GOTO 138 
CALL CLEAR ii END 

FOR Is1 TO 18 ı: CALL SOUNDC-102,220%1,05: 1 NEXT I 


RETURN 
EERERKERTETNERATRRTER 


5 SUB ECHOLOTLE,WF,SZ,55) 


EaE+i | ‚ah 

CALL POSITION #1,52,559 

IF 35<1 OR 55>=248 THEN _SUBEHIT 
CALL CHART 121,"" 


| | FOR I=18 TO 23 :: CALL HCHARCI,S878+3,1293:: CALL HCHARCI=1,887/8+3, 12135: N 
"EXT I | 


'ı CALL HCHARC23:8878+3, 121) 
FOR I=-i TO 5808. :: NERT I 
FÜR I=8 T0 18 STEP 2 
IF SSCCUP-3I0R SS>CHP+33THEN CALL SOUNDK 199.1769, I }ELSE CALL SOUND« 198,262; 


NEXT I 
SUBENG 


Pi 
chen um vun u. un ach 


\ u k 
de iä Br 7 . h* “ " 
- f 4 + - s 
a 


ARLea 


i 


— Me bee! 
= 
:- 


r de m 7 
rip EL; 
| % 
5 0 U Seh “; 
uf Fr Te 
9 Pu Ir ae Tee A Ad am dr 0: 


L A 
u | 
ke zE 
x ' 
u 
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I 
' 1734 SUB STEIGEN UZ:WP,S2.55:UF1,WF2,P,LB? 
‚ 174 CALL DELSPRITEI#IG) 
' 1759 ERLL MOTIONC#TZ,-2,0:#13, 2,89 
en a ne ern 
177A IF WZ<=3 THEN 1798 bi 
© , 1788 GOTO 1768 © 
' 1739 WIZ=169 
— ı 19M8 FOR Is=s& TO 13 :: CALL DELSFPRITEC#T PD: NEXT I - 
|! A CALL HCHARC22,1,.33,9693:: CALL HCHARS1,1,48,256) 0 
ı 1828 CALL SFRITEC#1,112,2,33,55+28) | | Bel 
{5 ' 1828 FALL SPRITEt #2.98;UF1.17,40,#3, 100, UFi 17,68, #4. 104,UF2.1.120,85, 198: UF2, 1, a Sr 


' {A4B EALL MOTION #2,0,2:#3,8:2,#4,0,1,#5;8,13 
1839 CALL SPRITEC #12; 136,2: WZ;WUP-48, 413, 148, 2: MZ:HP-B) 
1869 RANDOMIZE :: CALL SPRITEC#E.124,7.399, 189,8, INTERNDKZAI+EII: : RANDOMIZE :: 
vr FALL SPRITEC #7.124.4, 147, 150,9. -C INTERNDE#3A 3+6G } ) 
ı = 1878 RANDOMIZE :: CALL SPRITECHS, 178,11, 128:48, 8, INTERNDFZB +63: : RANDOMIZE :: C 
ALL SPRITECH9,128, 14,74, 110,05 INTCRNDKBBT+HE) 
@ ‚, lead DISPLAY ATC24,235IZEl 183: "BEHAELTER:" :ı DISPLAY ATC24, 1ZISIZEC3I:LB 1: DIS ' 
ı 4. PLAY ATC24;, 19 3SIZEL 7 3: "PUNKTE:" :: DISPLAY ATi24,2&85:P 
| ' 1R9A CALL MOTIONC#17,-2,9,#13,-2,8)9 
.®@ ı 198 CACL POSITION #12, W248) 
| : 191B IF W2X=SZ THEN CALL MOTION #12,8,0,#13:B,0):: GOTO 19308 
’ {978 G0TO 19388 
| ® 4999 SUBEND 
1948 I 
BE - 1359 SUB HETTERCE.:LB-HFi;HF2> 
i96A IF LBe39 OR E=3@ THEN HF?eI5 ı: GOTO Ze0R 
1978 IF LB=2B THEN HFi:HF2Z=S15 :: GOTD ZBad 
' 1984 IF LE=18 THEN HFi=8 :: GOTD 2800 
‚ 19989 TF LB=5 THEHN HF2Zeil ; 
- ' zZaad IF LB=3d OR E=38 OR LB=e28 OR LBeild OR LB=3 THEN EALL COLORG2,HFI-HFZI:: CAL 
+ L HCHARGC1. 1:49, 256) 
° 591B SUBEND 
@ . 2a20 ı art 
' ?a3a SUB GEWITTER{LB,Z,5.BF) 
IE 2944 IF LB£=5 THEN BP=INTtt 128-10+1 >FRHND3+IE ELSE SUBEHIT 
” ' 2n5ßB CALL FOSITION#12 23) 
ı ZABA. IF S3=eBP THEN ER 
oa , 2A? GOTO 28958 | 
: 2038 CALL CHRRX 132, "8808109804860 2H 23" ERPTEL "8", 24 )E"BBCB4BZBZI ZZ" JE: 
. ALL PATTERHE#19.1329:: CALL DELSFRITEC#4,#5) 
© ' 2939 FOR I=I TO 2 :: CALL SPRITEC#IB, 132, 16,5,38 3:1 FOR Jel TO 38 :ı NEXT Js: 6 
| ‚ ALL BELSPRITEC#IB3:: NEKT I 
Fi. 2189 CALL SOUND: 199, -5;,9 9:1: CALL ED? 


& 
ei 
je" 


‚ 2118 CALL MOTION #12,2,8.,#13,2,; id 
| ' 2124 CALL HCHARt24:1:33,329: 1 DISPLAY AT£13,13: "LEIDER HAT IHNEN DAS WETTER EINE 
® ‚ N STRICH DURCH DIE RECHNUNG GEMACHT" 8 
| ' 2128 CALL MOTIONC#1:8,807 
+ 2148 CALL FOSITIONC#12,2,5) 
© , 21sa IF Z>=164 THEN CALL DELSPRITEC#12,#13):: GOTO 2170 
21&B GOTD 2148 | 
elrB SUSE ND 5 | 


2 
ı 2199 SUB TITEL | 

® . ?zaa CALL CLEAR :: CALL SCREEN(S5?:: CALL MAGNIFYC2) > 5 
z2i@ DATA 83.65, 78,84,65,32, 77,69,B2, 73,65 | 

2228 CALL CHAR«G 96, "599920044002 2088" , 104,"") | 

2239 EALL COLORG9,11,5,19,5,9? 

2742 TIS="BRBSICZEFFFFI3EIC" 

258 Tet='"ARBBEBRBABBELBe" 

7760 T39ERPTRC"F",16) 

a r27A CALL CHART 124; T18, 125. 128,126, 138) 

'® , zzRa CALL SPRITEC#1.,126,5.120, 1,44, 124; 11:129, 150,95, 125, 11. 120, 165, #2, 126,5, 180 ı 

| ; 145,#3,126,5,188,53) 

r29A CALL MOTIONC#4,B,-15,#5,09,-15>3 

390 Wed ı: Kai 1 Yak-19 1: Zub 

2318 FOR I=s1 TO ii 

23280 CALL POSITION #4, ZE,SP} | 

338 IF SP£{#4 AND SP}>Y THEN CALL MOTIONC#H#:0,8,#5,0,8):: GOTO 2359 

349 GOTO 2328 

359 RERD T 
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2369 FOR K#INTLZE/B)TO CH/B)+L STEP -1 - 
577g CALL VCHART ZE/B,SP/B,96) 2 A 
2289 FALL YCHRARC INTEZE/B)+L,SP7B, 194): ı CALL VICHRR< INTCZE/8))8P/8, 104) £ 
7394 ZE=ZE-B 
2409 NEXT K 3 


sala CALL SPRITECHZITILTSUEH-IBI : WeulHib H: Kerl 1: YEYHIE I} Zez+i 


24728 IF kI=BB THEN Was 


439 FOR Je1 TO 58 iı NEXT JG: 


2440 NEXT I 


| 2asa CALL CHFR« 54, "304299A1A199423C" 3 
 : Pd VESCHRECE4 IE" 1904 BY WOLFGANG LENK" 


‚ 2472 DISPLAY ATL 19,35: 78 


‚ 24399 CALL KEYCO,K,SF:: 


' 2524 IF ZEI=1I THEN 2548 
2#3g GOTO 2518 


sag FOR IE& TO 12 STEP 3 i:ı FOR J#t TO 18 :: NEXT J 


ı I+5>3:: NEXT I 


' 2854 CALL DELSPRITECALLII: CALL CHARSET '@ 


"2869 SUBEND 


bar sn LEE 


I wit 
U ee nn 


“ Korrektur „Infra“ für TI-99/4A, Heft 4 


64a DISPLAY ATC23; 1): "REPAL! 
#598 DISPLAY ATC24, 1): "HAMM: 


":: GOSsUB 147 


ı »280 DISPLAY ATC22,3): "BITTE EINE TASTE DRUECKEN" 
IF Sea THEN 2498 x | | "u 
2sgg FOR I=5 TO 16 :: CALL MOTIONC#L,-5,@3:: FOR Je1 TO 3@ :ı NERTJINEETI | 05 
2s1d CALL POSITION #8, ZEI,SPA) .*“® 


er 7 Pa 
8 | 
as 


CALL MOTIONC#4,8,-15,#5,8,-159 


CALL DELSPRITEC#HT,#IHS:H 


Beachten Sie bitte nur die Zeile 650! 


REPRZI Oo ROHR: 
LICHTPPPPPPPPPP" :ı DISPLAY ATC1,7ISIZEC4 I: "PUN: 


&52 CALL VCHARCH, 11.117,79: CALL VCHARK1S:20, 117,73: CALL DELSPRITETALL? 


TI-99/4 A 


TARZAN 


TI-99/4 A mit Extended Basic und Joystick 


Der gefährliche Weg durch den Dschungel 


In diesem Spiel müssen Sie als Tarzan 
drei gefährliche Abenteuer bestehen 
und dann Jane retten, die irgendwo im 
Dschungel gefangengehalten wird. 
Nach Erscheinen des Titelbildes wird 
das Spiel durch Drücken der Feuertaste 
gestartet. Im ersten Bild steht Tarzan 
aufeinem Vorsprung und muß mit Hil- 
fe von Lianen einen reißenden Fluß 
überqueren. Drücken Sie die Feuerta- 
ste, wenn Tarzan springen soll. Aber 
passen Sie auf! Tarzan kann nicht 
schneller springen, als die Liane 
schwingt! Er kann auch nicht auf den 
Vorsprung zurück. Das Abenteuer gilt 
als überstanden, wenn Tarzan nach ei- 
ner bestimmten Anzahl von Lianen, 
die von Runde zu Runde größer wird, 
sicher auf dem linken Vorsprung lan- 
dei. 


26 HOMECOMPUTER 


ist Tarzan mit dem Joystick steuerbar 
(links, rechts, Feuer = Sprung). 


Allerlei Untier muß Tarzan im zweiten 
Bild überspringen. Es handelt sich da- 
bei um Steine, Affen und Pflanzen. Tar- 
zan bewegt sich ohne Einwirkung des 
Spielers nach links. Zum Springen wird 
wieder die Feuertaste gedrückt. Auch 
hier gilt das Erreichen des linken Bild- 
schirmrandes als Erfüllung der Aufga- 
he. | 


Jane ist im dritten Bild schon deutlich 
aufeinem erhöhten Vorsprung links ım 
Bild zu sehen. Tarzan muß aber noch 
zwei spinnenartige Wesen überwinden. | 
Er darf keines dieser Tierchen berüh- 
ren, Sobald er vor Jane auf der Säule 
steht, hat er Jane gerettet und die Aul- 
gabe ist gelöst. Nun beginnt das Spiel 
von vorne, allerdings mit einem höhe- 
ren Schwierigkeitsgrad. In diesem Bild 


Listing nächste Seite: 
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284 CALL CLEAR :: CALL DELSPRITECALLI: CALL MAGNIFYC4) 
218 DIM T#29:: POY=0 
= ii 27 Tail de"ABBcTIEre1?7i2ac1R2zA2ArR22 1408053" ERPTEC "0" 32) 
' 23m Tl 2)="H0RAA10291010B05020312121FOHAAKAHACHEAERZAZALHAHAHERBZAARE" | 
' 24A CALL CHAR 136, "301919393960603018 1339460391 BAL1B"ERPTEC "a" ,3233:: PLLR=B 0 M | 
- , Es3 :: EALL CHAR 148, T$C19) 
: 250 KALI CHARC132, RRTEC HB" ‚BIDEDBTOFIFFLTERPTEC"DN ‚21 WNIRBFFEFOECH" 2 


ee Fe u Te Sn Hi 


er B 
2: ! 











 ?6A CALL CHAR 128, "BaSaAaaEaRAAIaealngerBesFFBEBBR"ARFTSC "A", © | 

' 27a CALL CHARC 128, "FEFEFFFFFFFFFFFF", 121, "FFFEFFFFFEFO7O2" ‚122, "FFFFFFBFIF19101% Kae: 

‚122. "FFFFFFFFFFFEF464" ) u 

' >89 CALL CHARC 116, "0", 117, "FFFFFFFFFFFFFFFF" ‚118, "SOFSFFFFFFFFEFFF" 119, "OCHERFF ı © 

, FFFFFFFFF®) Bi 

» ! 298 CALL CHARC6S, "B4GEBCAB2B4B1CIC" ‚66, "3913033170733906" ,67,"C1431A3B30120Fa2", | 

6A, "4072270210783" } Wi 

289 CALL CHARC 72, "IFOFRFRTA2CILBE"ARPTEC "GO" ,49)) En 

=19 CALL CHARC 76, "783010193F978381C0CHEOFOBBBBACHE "ARPTEC"E" ‚3299 “u 

3>a FALL. CHAR( 89, "BaBOHBSHAEALARBAEALABAA AAAAHBEBERLIBELAIATEFIFLFSBTOFEFOBBRONE | 7 

1 Aa iu 
‚ 334 DATA 3C4239ALA199423C., aaaS5aD150445, MACL52CC52CE ‚,BRE7SSETZEES Anazıa725269,00 |" U. 

: 1A237222R2 ‚00206ERE2826 ,49861DD9151DD 8 

‘ 248 DATA ARAA1L9DS14D , Bn49SCDLSAEC - 

, 350 RESTORE 339 ;: FOR I=48 T0 57 :: READ X ©: CALL CHARCI,KED:: NEXT I | za 

' 364 CALL COLORC11,5.4.12,19,4):: FOR I=8 TO 8 :: CALL COLORCI,16,139:: NEXT 1 WW 

+ 374 CALL HCHARCI,L.116-768) '® 5 

ı 38A CALL HCHARCI,1,128,969: ı DISPLAY ATC4,19:1 "tvztuzivzisziuzisziuziuziuze" 0 En 

‘ ALL HEHARC4.L-121I:: CALL HCHARC4,2,1223:: CALL HEHARC4,31,121) 'o 

| 339 CALL HCHARC4.32.1223:: FOR I=1 TO 31 STEP 2 :: CALL HOHARC2B.I,118):: ALL H | ® 

‘ CHAPZ 29, 141,119: NEXT TI :: DALL HOHARC21,1,117,128) io 

‚ dan DISPLAY ATC2.7)SIZE< 109:"9123456789" ı: RANDOMIZE Eu 

‘ 419 CALL COLORCS,2,119:: DISPLAY ATC&, 1): "ABACDEDBCEBABEBACDEDBLFAt LEBE BE tt At CE 5 0° 

\ AkCktEDCHAECEOBECttEDELLCABLBCDEEABCECABECABDE " ss 

® 1 42M DISPLAY ATC9,1 3: "ttCtttDtAtDABEBDALEDEALBOCALLEDEEtÄtDEBCDEDEBALAEDECEADE" : © E 

ı 439 CALL SPRITEC#4.72,4,65,185,8,8):: CALL SPRITE(C#5,88,4,49,129,0.09:: CALL SPR | Erd 

‚| ITEC#3,76.4,49,209.0,0) | ia 

| er SERLIELRL, 136,13,27,1809:: CALL SPRITEC#2,136,13,59,10@>:: CALL MOTION ı ° 5 

#1... “14H, #2: 4, = r Sr 

a ET SPRITEC#7,128,3,159,132):: CALL MOTION ı © BR 

Fa il # a P P u 

458 RESTORE 1678 :: FOR I=1 TO 14 :ı READ ML.M1:M2.M3 :: CALL SOUNDC4RRKML,M1:2, ı _ = 

H2.5.M3.19:: Xb=XD+9 :: IF XxD<>1l THEN Xb=2 :: Dfs1l ELSE Die2 .® be 

47a CALL LOLORCS,KD.DKI:: CALL KEYCL-T, 33: IF Y THEN 520 | Te 

4a0 NEXT I Fu 

434 FOR I1=1 TO 2 :: RESTORE 1718 :: FOR I=1 TO 8 :: READ MLAMI,M2,M3 ©: CALL SO ı © 

LIND 4OB&ML.M1,2,M2,9,M3, 19: : KD=KD+9 :: IF KDE>11 THEN KD=2 :: Desil ELSE Di oO | 


sag CALL COLORCS-KD.DXI:: CALL KEYC1,T:YI: IF Y THEN 520 ® 
' 51A NEXT I :: NEXT II :: GOTO 468 vu 
+ 57a CALL HCHARC6,1.116,1603:: CALL CHÄRSET :: FOR I=@ TO 8 :: CALL COLOR<1,16,13: „ 


irn 
iapere 


STHEyHT] 
ET ER EEE Et SER ART. 
EZ u u Pag = ET 





Jr: MEXT I :ı EALL COLORE11.5,4-12:13,49:1: CALL DELSPRITECALL> - 

“30 DISPLAY ATC2,13: "SCOREXKSHRHHHKLEVELXKSKMENSK" | Br 

Ssda DISPLAY ATC2,7ISITZEC7 USING "RHHHHHh" PU :: DISPLAY ATC2,2B3SIZECI3IH: KH I, oo © 
HISPLAY ATi2,27ISIZEC2I:ME Er 
ssa FOR I=i TO 31 STEF 2 :: CALL HEHARC?R,T: 1189: : CALL HCHARCZB,TI#+1, 1199: : NEXT oe er 
I :: CALL HCEHARC 21.1, 117, 128) z, Ei 
sen DALL SPRITEC#4, 137,3, 159,180): CALL SPRITEC#5,128:3, 159,132) bt 
‚| 578 CALL CHAR« 136. "3018183039606030181320603818AC18"ERPTSC "A" 327) +‘; B 
ı 550 CALL HEHARC 12,38. 1225: : CALL HEHAREI2,31,129,29:: CALL> HOHARC13,31,1229:: CA ka 
‚ LL HEHRR“ 13, 32.123) TE 
a -=IHTCRNDESI +14 :: CALL SPRITEC#2,138,13:27,79:: CALL SPRITEC#3, 136:13:59, ı® 5 
' #88 CALL-SPRITEC#1.149,2.57,239) ia u 
#18 SBhed INTCRHDEZ I+ 1 1420-38 1: CALL MOTION #2,8,5BWU:.#3;,9;, 584): ı CALL SOUND{IBA, ) & 


480.9, 20@0,1, 119,1) 
574 CALL POSITIONC#2.SPZ,SPS>:: IF CSEUKL7+3B)+SPSKSBUR-.1)<=d THEN SBU=SBHR-1 | © 
: CALL MOTIONC#HZ2,6, SB, #3,8,5BW) 









; 638 CALL KEYELST.YIT: IF Y=A THEN 620 ee zur 
a I=-11 TO 19 STEP 2 :: CALL MOTIONC#1,1,-B)1: IF I=-7 THEN CALL CHAR{14B, ' ® 5 
o | 859A CALL FOSITIONC#H2,SPZ,SPS>:: IF CSBUEL7+39 7+CSPSKSBUF-.19<=BD THEN SBU=SBEU-1 'o ER 
++ BALL MOTION #2.0,5BW, #3; 9.5BW) iW- &5] 
; EAa GALL COINGCALL,FG>9:: IF FG THEN CALL MOTION #1.6,.0,#2.9,8,.#3.6.65:: GOTO 788 |! Meter 
 ) 674 NEXT I :: CALL MOTIONC#L,1S,0):: FOR I=1 TO 4_:: EALL COINCKALL-FGH: IFFG ı @ 55 
; THEN CALL MOTIONC #1. 0,9,#2,0.0.#3,0,0):: GOTO 788 EZ:} 
ABA NEXT I :: CALL MOTIONC#2,8,8, 43.8.9) ' m BE 
69A ERLL FOSITIONC#1,2,551: CALL SOUNDE-19B,300+2%4, 15:1: IF 2£155 THEN 695 :: CA) ” = 

z EN ee en | 
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[| 


ı@ : IL MATIONc#.0,8,85,0,8,#4,9,8) 








| zaA XD=KD+220 :: IF Xb>220 THEN Ab=® a 
| >1A CALL SOLNDE-1B0, 20044D,1):: CALL COINCCHL,#S,1S,FG):: IF FG THEN DALL DELSPR ı @ 
|  TTECHLI: CALL MOTIONC#5,9,0,#4,8,8)ELSE 700 | = 
|. : 729 CALL SOUND 209. 1399, 2, 119,1,899,3,-1:,5> | '. 
© | >30 ME=ME-I :: DISPLAY ATCZ,2PISIZEL2I:ME 1: IF ME=B THEN 768 ELSE CALL DELSPRIT |, © SS 
EC#6.#79:: CALL CHARC14A,TSC1)):: DALL HCHARC12,1,116,64) | Be: 

| | 748 CALL POSITIONC#4,2,89:: SeS+22 1: IF S>256 THEN Sa5-256 us 
75a CALL LOCATEC#5,2,53:: GOTO 598 Bea 

| 1 768 DISPLAY ATL3,33SIZEC23): "PRESS BUTTON TO BEGIN !7 ee 
'® ! 77a FALL KEYOL,T,Y>: IF Y=f THEN 778 ELSE CALL DELSPRITECALL>: CALL HEHARCI,L, ı © 
| an FOR I=iD TO 38 STEP 1a :: CALL SOUNDE BB, IK2E+119,@d:: NEXT I :: PU=PUHM ı: ı „TI 


DISPLAY ATC2.FISIZECF USING "HRRHAHR" PL 


9A CALL CHAR I4A,TEC23>:: FOR Lei TO SHRK23:: Z=eINTERNDEEII+4B ©: 


a ' #6.136,13,27,2):: CALL SPRITEC#H?,136,12,59,2) 


® ana HeMINEL,4):: SBl2=e INTERNDEZI+H IK2I-30 :: SEWZ=SBHZ+HRSENESEW2I:: CALL MOTTO es 


.  NC#6.8, SBU2. #78. 5BW2 ) 


e>aA FALL POSITIONCHS,SPZ,SPF&):: IF ESCHE SEWEIETA+FR IH SPSFSGNESBU2 IK-1 X=B THEN 


 SBHr=SRURr-1 :: CALL MOTIONC #6. 0,SBH2,#7,0,5BME > 


I® 3A CALL POSITIONC#2,SPFZ,SPSI:: IF © SGNE SER IELTO+3G >+C SPSKSGHESBUIK-13K=B THEN 5 | 


BH=SEHK-1 :: CALL MOTTONCHL.@,SBN.#2,9,SBU,#3,0,5BW) 
© | Bar CALL KEYC1,T,Y):: IF Y=@ THEN 828 


„ ; £SBW)) 


SE ALL POSITIONCHE.SPZ.SPSI:: IF CCSEMP-LIK7+3B)4HSPSICSBUZ-LIK-.1)C=9 THEN SB | =: 


' Y2=SBlrr-1 :: CALL MOTIONC#6, A, SBWZ2,#7,9,5BW2) 


| @ | 87a CALL COINCCALL,FG): IP FG THEN CALL MOTIONC#L,8,8,46,8,8,47,8,09:: GOTO Be 
:: PU=PUHLKIO+ | 


i Ben HEXT I :: FALL. MAT TON #E,0,0.#7 0; A, #1, 15,02 GOTO ae] | 

| 1 886 FOR I=1A TO 3A STEP 19 :: CALL SOUND 1@R, 1x2@+110,89:: NEXT I 
- ' eRH IK :ı DISPLAY ATC2.?ISIZECTILUSING "HH" PU 

sam IF L=1 THEN CALL HCHARC12,30,116,67) 

 _ } 318 IF L=2+40R#2)THEN 978 


11 
= ' 33a CALL MOTTONC#1.0,8.#6,9,9,#7,9,9,#4,0,8,#5,0,0) 


| 1 439,89:: SBU=SBL2 
® | 339 CALL POSITIONC#4,2,8):: S=9+32 ı: IF S>256 THEN $=3-256 
' 6A CALL LOCATEC#S,2Z,59:: NEXT L 


' HHAPRE 13,1.122) 
' saa FALL MOTIONCHL,0,SBU2,#65,0,SBW2, #7,9,SBll2 > 


o | saAa CALL PASITIONC#HS,SPZ,SPS>:: IF CSGNESBU? IK7R+30 )+C SPSKSGHE SBWZIK-1 «=D THEN 


ı SAU?2=SBH2F-1 :: CALL MOTIONC#L.B, SBW2, #65 ,0, SBH2,#7.,8,5BM2) 
19a CALL KEYE1.T.YI:: IF Y=8 THEN 990 


® : {mia CALL MOTIONCHE,8,8,#7,8,0):: FOR I=-11 TO 19 STEP 2 +: CALL MOTIONCHL,T,CH+ Bu 


CALL SPRITET 


859 FALL DELSPRITE(#3,#2):: FOR I=-13 TO 21 STEP 2 :+ CALL MOTIONC#1,I,CA+LIKSCN De 


s2A FALL MOTTONG#1 9; 19, #6, A, 19,8#7,0,18,44,09,19,#5,9,195:: FOR I=1 TO 888 :: NEX m = 


aan CALL POSITIONCHB.Z,SI:: CALL SPRITECH2,136,13,2,8):: CALL SPRITEC#3,136,19,2 ı 


a7  CALL HCHARC12,1,128,29:: CALL HCHARC12,3,123):: CALL HCHARC13,2,1219:° CALL 


bi | \ 
4 
" 


11 
UHHRLFESTITERSERTENT 
Kitkihieih a 


pEAHTURE 11 


TE 





v 
IST 


LYKSENE SEW2 I) Ä ! 2 

a ; !aza CALL POSITIONCHL.Z.S>: IF S>2aa ORtZ>76E AND Z<2BB)THEN 1959 ELSE IF Ze A, m I 

; Nb S<17 THEH 1978 vo 

' 1438 NEXT I :: CALL MOTIONC#L,15.09:: FOR I=l TO Id :: CALL POSITIONC#1,2,82:: I Ri 
© | F S»16 THEN 1950 ELSE IF Z>£8 AND 2<88 THEN 1878 © 5 

' 145 NEXT I | 2 | | | en 

a | 1asa IF e»>an THEN DALL MOTIONCHL.B,G)ı: CALL LOCATECHI,2,1D al 


' 4asa CALL MOTIONC#1.15,09:: GOTO 690 | 5 Be 
| 1 4a? PISPLIHIABKER+L):: DISPLAY ATC2.7ISIZEC7 I: USING "RRRHAHRT FL 
| o | #1,9.09:: CALL CHARC14B,TSC19>: : CALL LOCATEC R1,E0,5) 


{ASB A=-3 :: FOR I=da TO 19 STEP -2 :: FOR 11=-1841 TO 19%1 STEP 59 :: 


\ nde-1a@.11+619,25:: A=A+8s t: IF A>12 THEN Rss 


© | 1msa CALL ot ORLi1.A-4-12,.A.43:: NEXT II :: NEXT I :: CALL COLORCIL,S:412,: 13:43 , © ve 


11a CALL DELSPRITECHI,#S.#7 9: CALL HEHAR« 12-1:116,399 


i MAard4 Hi y 


| | 7130 PALL CHAR 112, "BnnBaRRARADAAARBEIR7AELFLEADAFATABRODBBERBBBRRROBECHEBERFETT , = 


Bus 
a1") 


I HCHARCIE.142,1219:: NEXT IT | | 
| i1EA CALL HEHARC 14.31.1239: CALL HCHARC14,32,122) 
| 3 447A KM=B :: GSellINc-1,R-69:: CALL SPRITEC#L:140,2,73,238.B,05) 
© | {19 PANDOMIZE :: GeRk2+15 :: IF G>39 THEN G=30 

1139 Z=INTCRNDE2) 


ır%: 
ITLZ 2 ar Pi .- 


1 En 
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er ei , - ie = z- 4 _ Ve, in! . u. + —r —— am a li 1 A et“ 
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_ | {11a FALL CHARC 1a. "asar 1 399asgenD 1515701 1ERR4BAAIIB"ARFTSC BD ‚32 > 5 
| 11>a CAIL CHAR a6, "BnmaanDDaRREERAAaR1 A7ABL 1MEH9 1 FARDMEDBDDBUNMNBHZBAGFBARLEER , TEE 


+, 1148 CALL CHART DS, "OanannaaRBARBRHAAAAL4BITTSASAIRLAAAnERAAnEAnnBBBLEFLFBEBEBIE ,ı _ FI 
15a FOR I=1 TO 28 STEP 3 :: CALL HCHARC14-1,1239:: CALL HCHARCI4.T+L, 122° CL? 


Bas m am # 
=e—4+- rn "Eh 


:ı+ CALL MOTION | na 
ALL soun | ® 5 | 








Da — 
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1790 IF_Z=9 THEN CALL SPRITEC#2,196,13.73,1,@,G)ELSE IF Z=1 THEN CALL SPRITECH2, 
, 117,19, 73,1,0.G)ELSE CALL SPRITEC#Z, 188,9, 73,1,0,6) 
ı 1219 KM=KM+L :: CALL COINCCALL.FG>:: IF FG THEN 1259 ELSE CALL POSITIONC#2,2,89: 
' : IF 8>224 THEN 1198 
„| 1226 CALL POSITIONC#1,2,8>:: IF S<1@ THEN 1370 
# ı 1238 CALL KEYELT.Y9:: IF YC>a THEN 1330 
4 124 CALL ROINCCALL,FGI:: IF FG=& THEN 1218 
os ! 1259 FALL MOTIONC#L,15.9,42,0,9) 


1268 CALL POSITION HL»2.83. CALL SOUND -1AM.SBR+Z44, 13: IF 2155 THEN 1268 :: 
| @ ı 1779 ND=HD+I :: IF 2D>220 THEN #D=f . 
| 1269 CALL SOUND -188, 2B0+40,19:: CALL COINCK#1.85,.15,FG9:: IF FG THEN EALL DELSP | 


— ' PITEC#II:: CALL MOTIONC#S,0,0.#4,0,0)ELSE 1270 
“1284 CALL SOUND aa, 1300,2,119,1,899,3,-1.0) '@ u 
: 1308 Pl=PU+KM ı: DISPLAY ATC2. FISIZEL TI: USING "HHRHBHH" PL | Ti 


|» ! 1214 MESME-1 :: DISPLAY ATC2,273SIZECZI:ME +: IF ME=8 THEN FEB ELSE CALL POSITIn | © 
| ı HE#4.,2,59:: 5=5+432 :: IF S>256 THEN 5=3-256 I 
| _ ., 1328 CALL LOCATE2#5,2,82:: GOTO 1178 
® ‘ 1328 FOR I=-17 T0 17 STEP 2 :: CALL MOTIONC#L,1.GS:: KMeKM+i 
124 CALL POSITIONC#1:2,5%:: IF 10 THEN 1378 | 
a. 1359 FALL COINCEALL,FGI: ı IF FG THEN 1258 u 
, 12eA NEXT I :: EALL MOTIONC#1,8,685:: GOTM 1218  - 
' 137A CALL MOTION #1,9,0,#2,0,0%:: PUSPIHKMHÜR+LIK2O 1: DISPLAY ATC2,TISIrELFIRUS Be 
@ : ING "HH PL nu 
1229 FOR II=1 TD 2 :: FOR I=s1 T0 3 :: CALL SOUNDEIOR, TH2BB+110,89:: NEXT I: FO! Kir 
PR Iel TO 39 :: NEXT I :: NEXT II | ar 
= KL EUE In TO 38 :: NEXT I :: FOR I=1 TO & :: CALL SOUND 1A9+IK19, 1k2aa+110,03 | © 
a: 1409 FALL DELSPRITECHI #23: : CALL CHARC 135, "BOgagaaaamaagaeaaanaaarir2d444gnnan ‘ I 
 AAABAAAAAAAASABAERFa4Ad4ag ) | 
1418 CALL CHARC 112. "EAFACBDODASABFACASRASBTBZAZRBER" ARPTE "A" 323) | eek 
© : 142A DALL HOHARE11,5,.1223:: CALL VCHAREIT.E, 120,33: CALL HCHARC 11,712: CALL ı © I 
| 1430 CALL. HOHARCH, A 5 ze 
-- „A EALL HL »,1:129. 23:1 CALL HEHARK 3.3.1235: : CALL HCHÄRCIB,2,. 1213: CALL H ı _ 7 
”_ı CHARCiA,1.122 ®6 
‚ 1444 CALL SPRITEC#6.112,12,33,69:: RANDOMIZE :: CALL SPRITEC#2,136,14.73,1INTERND ı © 
ie: Pai26sd:: CALL SPRITEC#3:136,14,73, INTCRNDHBA)+L26 8 
| " ) 1454 CALL SPRITECH.149.2,72,.235.8,9) (oe 
_  , 146 SEhlef INTERNDEZ )+1 3829-38 :: SBWU=SBL+HRKEXSCNESEW):: SBU2=C INTERNDEZ I+1 3420-3 | h 
© 1 B :: SBU2=SBU2+RFK2ESGHE SBU2):: CALL MOTIONC#2,9,5BW, 43,0, SER) » 


1478 EALL POSITIONC#2,2:,85:: IF 1O#SGNE SEM IKB. 8+32+5ESCHl SBEUIt-1<=B THEN SBU=SBW \% 


je Um 
TR j rn, 
Lig#- wrT.e ern aFrl nu 
a er 3 a EN FE 





f | 
Io | *-1_:: CALL MOTTONC#2,0.SEW) | 
| ‚ 143 CALL POSITION #3,2,85:: IF IORSGNCSBUPIKL?. 25422. 5+SESGHC SEHE )E-1{=B THEN S | ° © 
' BU2=SSPBU7%-1 :: CALL MOTION #3,0.SEUR | Hr 
8 | 1439 CALL. COINCCALL,FGI:: IF FG THEN 1588 oe WW 
| 15a ALL IOVSTEL-T.YIı: CALL MOTTONCHL.9, TH2=-CRKT/2 33: DALL KEYEL,ST,Yd:: IF YE Be 
_ . >A THEN 1528 ei 
+ 151A CALL POSITIONC#1,2,59:: IF S<36 THEN 1538 ELSE CALL COINCEALL»FGSH: IFFGT I ® 
, HEN 158m ELSE 1470 | KH 
a ' 1528 FOR I=-3 T0 3 :: FALL MOTIONC#HL, 173. -10-RK2) iu u 
+ 1524 CALL POSITIONC#2,2,5):: IF LORSCNESEM IER.B+32+SESGNC SBLIR-1<=A THEN SEU=SSEN ı 
1-1»: CALL MOTION #2,0,5BW) ER] 
© ; 1545 FALL POSITIONC#3,2,59:: IF 1OXSGNCSBW2 E17 .25+22.5+SESCHt SBUr Ir-1{=a THEN 5 ı © 7° 
‚ BII2=SRW2E-1 ı: CALL MOTIONC#3.0,SBI2> | Br: 
_ + 1554 CALL COINGCALL»FGI:: IF FG THEN 1588 ı. 
® | (s6a IF I=9 THEN CALL POSITIONC#1.2,8):: IF SC26 OR S>50 THEN 1578 ELSE 1648 'Ww Eu 
ı 157A NEXT I :: CALL MOTIONC#1.9,09:: CALL COINCCALL-FG>I:: IF FG=ß THEN CALL POST | er 
ı® ! TIONe#1.2,59:> DALL LOCATECHL.73,89:: GOTO 1478 an 
i ‘ 1589 CALL MOTIONd#1,15,8,#2,8,0,#3,9,0) 00 
| _ ). 1594 CALL POSITIONCHL,2.59:: CALL SOLUNDE-1AA.FUM+EK4, 19:1 IF 7155 THEN 1590 1: 02 DE 
 1®@ : FALL MATIONC#1.0,0,#5,8,8,#4,0,8) em 
| ‚ 1saa Kb=kD+220 :: IF #0>22@ THEN KD=B | Era) 


a ' Irida CALL SOUNDE-189,2B0+XD,19:: CALL COTNECHL.#5,15; FG’: IF FG THEN CALL DELSP ı „ = 
7, RITE£L#1I1:: CALL MÖOTIONC#5,9,.0,#4,0.,BJELSE 1688 | w 


' 162A CALL SOUNDE 208, 13049,2,119,1.2809.3,-1.95:: PU=SPU+3SHRCR+1 ): : DISPLAY ATC2,7985 ı Bee 
©, TECHUSING "HRRRehe": PL u. 5 

' 1679 ME=ME-1 :: DISPLAY AT{2,Z735SIZELZI:ME :: IF ME=B THEN 768 ELSE 1448 | | 
_ ; 1eda CALL MOTIONC#1:8,9;#2.0:8,43,0,0):1: CALL COLORC#2,7.#3,73:: Xb=? IE 
| en CHAR« 136. "BGB 1LIETFFFFFTFIFIFAFO7B2E I DRBOBEBE3ETLFEFEFEFEFCFEFOERCOSB :ı © 77 

‚ > ' 
o \ Is6A PU=PLIH3SBHER+1):: DISPLAY ATC2,73SIZECF USING "HRRHHRR":PU ©: ME=SME+HL 2: D 


ISPLAY ATC?, 27 YSI2EL 23: ME 

- i67A DATA 1,523. 448,349,1:523: 392:349,: 1,923, 392, 339, 1,440,449,349,1, =23.440,349;, 
® | 1.5293,392,349, 1,523, 292,320 

1ER DATA b ai aan, 42 ‚1, Sa 349, 2471, MESSEN, 262, Li 449. 249; Eat ‚332, 392, 338, 


—— z — | — 
—— _——- =———- 
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1.449, 220. 262,2,349.2349,343 


igaA RESTORE 1670 :: FÜR 
‚M2,A,M3;19:: “N=K0+3 sr 


1={ Tn 14 :: READ ME-M1.M2,M3 :: CALL SOUNDE 4aa+ML, Mi, 2 
IF #D>1@ THEN #D=7 


{7Aa KALI. COLORC#2.80.#3,%D):: NEXT I 
{719 DATA 1.440, 440, 349, 1.573,392,339,1,597,349,294, 1, =23.,392,239,1,523,392,338, 
1.698, 440,349, 1,693, 494, 392 Ei 


1724 DATA 7.523,446,349 
17398 FOR I1=1 TO 2 


DUIND« 4RAEML. MI. 2.M2.9.M3, 
1748 CALI COLORC#2,#0,#3, 809: 
DISPLAY ATC2.2AISITZEL3>:R+1 


{759 R=R+ :: 





ı: RESTORE 1718 


:: FOR I=1 TO 8 :: FREAD ML.M1,MZ2,M3 :; 
{3:3 XD=XD+3 1: IF #D>1A THEN XD=7 
NEXT I :: NEXT II 


CALL Sm | 
. CALL DELSPRITECHE.HL,H2,HB):: CALL a 
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Interne Abspeicherung von BASIC-Zeilen 


Das nachfolgende Programm behandelt 
Tips und Tricks für den Schneider 
CPC-464 und besteht aus zwei Teilen. 
Der Teil | von Zeile 30 bis Zeile 6UÜ 
zeigt den Speicherinhalt Ihres Compu- 
ters in folgenden Formen: Hex-Adres- 
se, Adresseninhalt hex, und wenn der 
Speicherzelleninhalt größer als 32 (dez) 
ist, auch den Zeichensatz des CPC-464, 


Die Werte, die kleiner als 32 sind, dür- 
fen nicht mit PRINT CHR$ (...) ausge- 
geben -werden, da diese sonst als Steuer- 
zeichen aufgefaßt werden (siehe Hand- 
buch, Kapitel 9, Seite 2-4). 

Zeile 10 wird für Programmieil 2 benö- 
tigt und sollte genauso eingegeben wer- 
den, ‚wie es beschrieben wurde. Nach 
dem Befehl REM zwei (|) Leerräume 
und dann ein X. 

In Zeile 20 können die Werte für die 
Schleife auch anders gewählt werden 
(max. von O bis 216). 

Nach RUN sieht man, daß das Basıc- 
Programm bei Adresse 367 beginnt, 
Von Adresse 368 bis Adresse 375 ıst die 
Zeile 10 des Programms fölgenderma- 
Ben abgelegt: 


Adresse Speicherinhalt (jew. dezimal) 
3670 Kennzeichnung Basic-ÄAnfang 
368 9  (Zeilenlänge LOW-Byie) 
31690 (Zeilenlänge HIGH-Byie) 
370 10 (Zeilennummer LOW-Byie) 
3710 ({Zeilennummer HIGH-Byie) 
372 197 REM {siche weiter unten) 
373 32 Leemaum 

374 32. Leerraum 

375 120 x 


Wie aus dem Beispiel zu erkennen ist, 
benötigt der CPC zwei Bytes (368 
LOWY/369 HIGH), um die Zeilenlänge 










Basic-Befehle mit Dezimal-Code (ToKens) 


Dezimal-Code von 0 bis 127 siehe Handbuch CPC 464 Anhang W 1 | 


















Basic-Befehle mit 1-Byte-Dezimal-Code | 
128 AFTER 162 INK 196 RELEASE | 
129 AUTO 163 INPUT 197 REM 
130 BORDER 164 KEY 198 RENUM | 
131 CALL 165 LET 199 RESTORE | 
132 CAT 166 LINE 200 RESUME 
133 CHAIN 167 LIST 201 RETURN 
134 CLEAR 168 LOAD 202 RUN 
135 CLG 169 LOCATE 203 SAVE 
136 CLOSEIN 170 MEMORY 204 SOUND 
137 CLOSEOUT 171 MERGE 205 SPEED 
138 CLS 172 MID$ 206 STOP | 
139 CONT 173 MODE 207 SYMBOL | 
140 DATA 174 MOVE 208 TAG 
141 DEF 175 MOVER 209 TAGOFF 
142 DEFINT 176 NEXT 210 TROFF | 
143 DEFREAL 177 NEW 211 TRON 
144 DEFSTR 178 ON 212 WAIT 
145 DEG 179 ON BREAK 213 WEND | 
146 DELETE 180 ON BREAK GOTO 214 WHILE | 
147 DIM 181 ON SQ 215 WIDTH 
148 DRAW 182 OPENIN 216 WINDOW 
149 DRAWR 183 OPENOUT 217 WRITE 
150 EDIT 184 ORIGIN 218 ZONE 
151 ELSE 185 OUT 219 DI 
152 END 186 PAPER 220 EI 
153 ENT 187 PEN 221 syntax error 
154 ENV ISR:-PEOT 7 een 
155 ERASE 189 FLOTR 226 syntax error 
156 ERROR 190 POKE 227 ERL 
157 EVERY 191 PRINT 228 FN 
158 FOR 192, 229 SPC 
159 GOSUB 193 RAD 230 STEP 
160 GOTO 194 RANDOMIZE 231 SWAP 
161 IF 195 READ 232 syntax error 
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zu bestimmen. Dies ist notwendig, da 
dıe zwei Byies für die Zeilennummer 
(370 LOWY371 HIGH) sowie dıe bei- 
den Bytes der Zeilenlänge selbst, zu der 
maximalen Länge von 255 Byies ad- 
dıert wurden. Nach der Zeilennummer 
folgt das Basic-Schlüsselwort, welches 
ein oder auch zweı Bytes benötigt. 
Berechnet wırd dıe Zeilennummer fol- 
eendermaßen: 


Zeilennummer = (HIGH-Byte # 255) + 
LOW-Byte 


Programmteil 2 beginnt ab Zeile 80. 
Um das Programm einfach nutzen zu 
können, wurde in Zeile 55 die Funk- 
tionstaste (.) belegt. 

Dieser Teil wird mit RUN 80 gestartet 
und dann jeweils durch Drücken der 
Funktionstaste fortgesetzt. 

Solange x kleiner als 128 ist, wird der 
ASCIH-Zeichensatz ausgegeben. Ist x 
erößerals 128, werden sämtliche Basic- 
Schlüsselwörter ausgegeben, die im fol- 
eenden auch alle aufgelührt sınd. 

Die Basic-Befichle erscheinen ın der 
aufgelisteten REM-Zeile. Das sieht 
dann so aus: 125 IO REM AFTER 


Diese Kenntnisse lassen sıch beispiels- 
weise dazu verwenden, um ein fcehler- 
hafı gespeichertes Programm doch 
noch zu reiten. 


Zum Beispiel: Irgendwo im Programm | 
ist eine falsche Zeilenlänge oder eine | 


kleinere Zeilennummer als die vorher- 


gehende angegeben. 
Durch absichtliches Verändern der Zei- 


lenlänge kann ein Listi-Schuiz realisiert 
werden. Wird in das Programm folgen- 
de Zeile eingefügt: 

15 PÖRE 368,0 
läßt es sich nur einmal benutzen (es sei 
denn, der ursprüngliche Wert wird zu- 
rückgepoket). 


Wach dem ersten RUN erfolgt nun auf 
jedes weitere RUN oder LIST die Mel- 
dung READY. Auf RUN (Zeilenns#- 


mer) erfolgt die Meldung: „Line does | 


not exıst”. Die 0 in der Speicherzelle 
365 führt dazu. daß der Rechner an- 
nimmt, es stünde kein Programm zur 
Verfügung. Auf der Suche nach dem 
ersten Byte des Programms findet der 
Rechner nun eine D in der Speicherzelle 


368, folglich läßt sich das Programm | 


weder starten noch listen. 


Programmlänge: 


Die Länge eines Programms erhält, 


man, indem Sie folgenden Befehl 
eingeben: PRINT 43533 - FRE (0). 
Diese Adresse 43533 ist der gesamte, 
für Basic zur Verfügung stehende 5Speı- 
cherplatz. Diese Zahl erhalten Sie 
durch-PRINT FRE {0}, wenn der Spei- 
cher noch leer ist. 
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TIPS + 


Ein radikaler 


ı Break-Schutz: 


Ein break-geschütztes Programm läßı 
sich zum Beispiel mit dem Subroutine- 
Aufruf CALL O0 realisieren. Wollen Sie 
ein Programm schützen, sollten Sie es 


Basic-Befehle mit 1-Byte-Dezimal-Code 





20 FOR n=0 TO 1000 


TRICKS 


Commodore 64 






unbedingt abspeichern, bevor Sie es das 
erste Mal starten, Der Befehl CALLO 
führt zu einem vollständieen RESET, 
das bedeutet, daß Sie den Rechner mit 
diesem Befehl aus- und wieder einge- 
schaltet haben. 


Beispielprogramm siehe Listing 2. 


233 syntax error 241 < 249 / 
234 TAB 242 <> 250 AND 
235 THEN 243 <= 251. MOD 
236 TO 244 + 252 OR 
237 USING 245 — 253 KOR 
238 > 246 254 NOT 
239 = 247 / 255 ABS 
JA0 >= 248 4 
255 LASC 255 21SIN 255 T2YPOS 
255 ZAIN 2535 22SPACES 255 73-syntax error 
255 3CHkRS 255 2350 ee ee 
255 #CINT 255 2450R 255 LI2 syntax error 
255 5C05 253 25:S5TR3 255 113 BINS 
255 6CREAL 255 26 TAN 255 LI4 DECS 
255 7EXP 255 27 UNT 255 115 HESS 
255 8FIA 255 28 UPPERFE 255 1165 INSTR 
255. 0 FRE 255 29 VAL 255 117 LEFT3 
255 10 INKEY 255 30 syntax error 255 115 MAX 
255 11IMP wer 255 119 MIN 
255 12:INT 255 63 syntax error 255 120 POS 
255 13JOY 255 64 EOF 255 121 RIGHTS 
255 14LEN 255 65 ERR 255.122 ROUND 
255 15 L0G 255 66 HIMEM 255 123 STRINGS 
255 16 LOGIO 255 67 INKEYS 255.124 TEST 
255 IT LOWER$ 255 68. Pl 255 125 TESTR 
253 13 PEER 255 69 RND 255 126 syntax error 
255 19 REMAIN 255 70 TIME 255 127 VPOS 
255 205GN 255 /1 XPOS 
Programm I 
IöOREMX 


30 PRINT n: TAB(8}; HEXS(n}; TAB(14}; PEEKin}; TAB(20); HEXSPEEKin)); 


TAB(24): 
40 IF PEEK(n)<=32 THEN PRINT 


>0 IF PEEKin)>32 THEN PRINT CHRS(PEEK(n)) 


60 NEXT 
70 STOP 
80 x=l 
85 KEY 138, "goto 90°%4CHRS(13) 
0 x=x+l 
i®0 IF X>255 THEN FOKE 374.355 
110 IF x>253 THEN a=x-355 
120 POKE 375,x 


Programm 2 


IG ON BREAK GOSUB 100 I 


20:PRINT "x" 

30. GOTO 20 
IO0 CALL O0 
ready. 


130 IF x>255 THEN PRINT 255;x;: LIST 10 


140 PRINT x,: LIST 10 
ready, 
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Es ist eine klare, helle Mondnacht. Nur 
noch wenige Minuten bis zur Geister- 
stunde. Der Wampir hat seinen Sarg 
verlassen, um sich ein neues Opfer zu 
suchen. Das ist die Chance, auf die Sie 


Geisterschloß 


Schneider CPC-464 


schon lange gewartet haben. Wenn Sie 
jetzt den Sarg des Wampirs zerstören, 
hat er keinen Platz mehr, wo er sıch 
tagsüber vor der Sonne verstecken 
kann, und er muß endlich sterben. 





da L w) 

| 20 
30 
40 
Sc 
u 50 

70 
zo) 


100 
110 
120 
150 
| 140 
| 150 
| 150 
170 
180 
170 


ES ES SZ 5 on mom 0 m m u u 06 600 040; 


= GEISTERSCHLOSS * 


#* 


+ ein JeBaSoft - Spiel# 


# 


iC) 1985 A 


u u 22 2 2 2 2 2 2 5 2 2 2 2 2 0 2 2.2.2.2. 


ufr=CHRF# (12) +CHRF (ZI) +" 
| EYMBOL AFTER 128 
in 30 SYMBOL 128,0,0,0,24,24,0,0,0 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMEOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


MODE i1:BORDER 18:INK 0,18: INK 1,4:PAPER Ö:FEN 1 


129 ,24,36, 65 ,36,36,24,24,0 
130,24,24,24 "24,24 ,24,24,24 
131,24,24,24,0,0,24,24, 24 
i32.24.24.0,0,0,0,24,24 
133,24,0,0,0,0,0,0,24 
134,0,0,0,255,7255,0,0,0 
135,0,0,0,231,231,0,0,0 
1356,0,0,0,195,195,0,0,0 
157,0,0,0,129,129,0,0,0 
138,255,171,213,171,213,171,213,255 
139,56,124,84,124,56,24,12,0 
140,28,.62,42,62,289,24,48,0 
141,14,1665,894,56,15,54,40,108 
142,16,56 ‚20,56,16,56,72,108 
143,16,55,16,62,16,58,72,108 
144,16,56,16,56,20,59,72,108 
145. 16.56,16,56,84.186,40, 108 
146,16,56,15,55,80,184,35,108 
147 ,15,56,16,120,16,56,35, 108 
148,16,184,80,56,16,56, 36,108 


PRINT Ur 


ı FRINT 


PRINT "Spielregeln :" 


32 HOMECOMPUTER 





| Vorprogramm: 


GEISTERSCHLOSS 


Doch da gibt es ein Problem: seine 
Geister sind im Schloß geblieben, um 
es zu bewachen. Glücklicherweise ha- 
ben Sie sich mit genügend Knoblauch 
eingedeckt, dem Schreckmittel für 
Vampire, Bewerfen Sie die Geister da- 
mit, dann sind die für einige Sekunden 
vom Geruch gelähmt und können Sie 
nicht erwischen. Auch die Türen öffnen 
sich erst, nachdem Sie sie mit Knob- 
lauch beworfen haben. Aber Vorsicht! 
Wenn sich die erste Tür geöffnet hat, 
bedroht Sie der Geist, der bisher dahin- 
ter gefangen war. Haben Sie auch die- 
sen geliihmt, dann können Sie den Sarg 
des Vampirs ebenfalls durch Bewerfen 
mit Knoblauch zerstören, Zur Beloh- 
nung erklingt dann eine Siegesmelodie 
und Sie dürfen sich erneut aufiden Weg 
machen. Werden Sie jedoch von einem 
Geist erwischt, dann ist das letzte, was 
Sie auf dieser Welt hören, Ihre eigene 
Grabesmelodie... 


Übrigens, Sie können wählen, wıe vıele 
Knoblauch-Zehen Sie als „Bewall- 
nung“ mitnehmen wollen: 

Level | = 50 Knoblauch-Zehen 

Level ? = 40 Knoblauch-Zehen 

Level 3 = 30 Knoblauch-Zehen 

Level 4= 30 Knoblauch-Zehen 

Level 5= 10 Knoblauch-Zehen 


"+CHRF (24) 


Drill) 


mare k 


df Sr ni 













l 


PIKEN 


irhTdr 


rrr- 


# 
= 


ee 


rm de Du 


PER 
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— — = Be a zu nn m, ns Ey a a zu u — 


340 PRINT:PRINT"Ziel des Spieles ist es, den 5arg des Wampirs im Burginnern zu 
zerstoeren." 
3=a0 FRINT:PRINT"Dabei wird man von zwei Geistern ver- folgt, die man jedoch fu 
er einige Zeit stoppen kann, indem man sie mit Knob 
— lauch benwirft." 
340 PRINT=:FRINT"Die Tueren oeffnen sich, nachdem man siemehrere Male mit Knoblau 
eh benorfen hat." | 
 PRINT"Die Steuerung erfolgt mit dem Joystick oder Tastatur +" 
-PRINT=:PRINT" NUN NO" 
PRINT” | fi" 
PRINT" 
PRINT" y 
PRINT" Hi 
FRINT" So >> Taste <<"; 
a$=INKEYS:UHILE af="" ı as=INKEY# : HEND 
&0 BORDER 4: INK 0,4: INK 1,18 
70 CLS:LDCATE 10,5:PRINT"I EB AS Oo F T" 


Urt. 


’ LOCATE 5,72 PRINT" presents" 
PRINT=PRINT=:PEN 2: INK 2, 1HPRNTG EISTERSEHL 0.5 9% 
FEN I 
LOCATE 15,20:PRINT"LOAD! 


>30 DIM BILD(20,25}ıFOR I=2 TO 20:bildti,2}=1:bild ti,24)=1:NEXTıFOR i=2 TOD 24:bi 
id (2,i1)=1:bild (20,1)=1:NEXT 

40 DATA 3,344,4,5,9,17,5,18,4,19, 3,3423, 4, 22,5,21,17,21,18, 22,19, 235,72, 02454 747 u 
7,8,7,3,7,10,7,12,7,13,7,14,7,1517,16,7,6,8,16,39,4,1 
0,7,10,10,10,11,10,12,10,13,10,6,7,16,7 

s0 DATA 18,10,5,11,9,11, 13, 11, 16,11, 4,12,15,12,5,15,7,135,15,15,158,13,6, 14,7, 14,1 
0,14,11,14,12, 14, 13, i4, 16,14,6, 15,18,15,8,16, 16,16, & 

»17,7,17,8,17, 9,17, 10,17,12,17, 135,17,143,17,15,17,168,17,-1,-i 

(218) READ ".y:ılF »=-2 THEN hh=e1:60T0 50 

' 70 IF x=-1 THEN 80 ELSE y-y+hh:sbild {x,y}=1:60T0 50 

; 80 bild (11,19) =&6:bild (di B=2:bilg {11,187 =2:bild (9,19 =2:bild {13,13 =2 

' 0 px=4:py=i2:pgix=14:pgily=5: ng2x=15:pg2y=17:pg3x=1&:pgsy=2l= IF RND(1)>0.5 THEN 


| gSs=CHR#(140) ELSE g3SF=CcHAFi137) 


100 mann=143 
110 CLS:ED5UB 200:PEN 2:LOEATE 4,1F:PRINT"Level (1-5) 7% 
120 as=InKEYf:IF as<"i" OR a#>"5" THEN 120 
130 11=VWAL tas):1=ABS(VWALta$)-5)3:50=1#10 
140 SOUND 7,248,5,6- 
150 LOCATE #,197: PRINT" . 
i&Ö0 mm=1:GOTO 550 
170 mm=2:50T0 380 
186 mm=3:60T0 380 
170 ON mm 60TO 170,180,1 
200 ELS:PEN 1:PRINT: PRINT " STRINGELIF,1387:FOR i=2 TO 23:L0CATE 2,i:PRINT CHRF 
(138): LOCATE 20,1:FRINT CHRE1139) NEXT i:LOCATE 2,24 
FRINT STRINGELIY, 138335 
210 LOCATE 5,2: PRINT CHR& (138) CHR&LI1ÖI CHRF LI FBICHRFLLOICHRFLI1IB) 
220 LOCEATE 17,5:PRINT CHRELISSICHRFLLLIICHREILSBICHRELLLICHRFLIIBI 
230 LOCATE 3,23: PRINT CHRFELISBICHRELLIICHRE LI FBEI CHRE LI LICHRF (138) 
240 LOCATE 17 ,21:PRINT CHRFT13BICHR# Lt LOJICHRELIZBICHRELLOICHRF (1) 
250 LOCATE 5&,B:PRINT STRINGEFE{S, 138) CHR& (154) STRING$ (5, 1538} 
LOCEATE 5, F9:PRINT CHRF(138)" "CHR#FL138) 
LOCATE 5, 10: PRINT CHRF (138) " "CHRE (138) 
O0 LOCATE &,11:PRINT CHRF(13BI" "STRINGSIS,138)" "CHRE£(138) 
0 LOCATE 5,12: PRINT CHRFi1SBN" "CHRE(ISEBI" "'CHREI1SBI" "CHAELLSB) 
300 LOCATE &,13:PRINT CHRFtI38I" 2 "CHRFLISO)" "CHAFLI2F" "CHRFLISOI" "CHREIISB 
’ 
>10 LOCATE 5,14: PRINT CHRF£(13B) " "CHRE (138) " "CHR#£i138)"  "CHR#(138) 
=20 LOCATE 5,15: FRINT CHR#(138) " "STRINGE(S, 1358," "CHR£(138) 
330 LOCATE 5,1&5:FPRINT CHR&# (138) " "CHRE&(138) 
s40 LOCATE 5,17: PRINT CHRE(1IBI" "CHRFLL13B) 
3=0 LOEATE &,18:PRINT STRING#F(S, 138I CHRE 134) STRINGE (3,138) 
3540 FEN S:LOEATE: 1,5: PRINT"G":PRINT"E"=:PRINT"I":PRINT"S":PRINT"T":PRINT"TE":PRINT 
"R"SPRINT"S"SPRINT"C":PRINT"H"EPRINT"L":FRINT"D":PRI 








| NT"E":PRINT"S" Re 
370 RETURN u 
s80 IF f=1 THEN 480 EN == 
390 LOCATE px ,„pyıFEN 2:PRINT CHR$ (mann)? i end 
400 GOSUB 1780 di Baur 
410 IF JO AND 16 AND jo<>1& THEN F=1:j0o=jo-16 | Kal 
420 ON jo GOSUB 1140,1150,1150,1170,1180,1190,1200,1210,1220,1230 | Pe 
430 ON r GOSUB 1240,1280,1320,1350,1400,1440,1490, 1520 eo = 
440 IF jo<>O THEN SOUND 3,500,1,2 | ah 
450 IF f<>1 THEN r=0 a 
450 FEN 4:LOCATE 1,1:PRINT CHRFL128)50"score :"score u 
470 GOTO 190 | ; 
480 REM Schuss Ze m 
490 hk=spx:hy=py:IF so“=0 THEN GOTO 720 eTE 
500 so=so-lıscore = score + 11 ., 
510 ON r GOSUB 1550, 1570,1580,1590,1800,1510,1620,1630 os 
320 PEN 1 
530 IF px<>hx OR py£>hy THEN LOCATE px,py:PRINT CHR#(32) | 
540 SOUND 7,434,5,7 | | | 
Ss50 IF bild (px+sx,py+sy)=2 THEN SOUND 7,1000,14,5,,,3:bild (px+sxk ‚„py+tsy)=3:LDCA “1 
TE px+s4 ,py+tsy:IF px+s«=11 THEN FRINT CHR#(135):60T0 u Bu 
| | 1730 ELSE PRINT CHRFi1313:60TD 1730 | 
| ' 550 IF bild (px#+sx,py+sy)=3 THEN SOUND 7,1000,14,5,1,3:bild ipxtex,pytsy)=4:LOch , _ © 
Fi TE px+sk,Pytsy:IF px+sx=11 THEN FRINT CHRF(138) :60TO im 


1730 ELSE PRINT ECHRFt132):60T0 1730 ER RB 
570 IF bild (px+sx,py+sy)=4 THEN SOUND 7,1000,14,5,,,3:bild tpx+sx,py+sy)=5sLOCh ' . 7 
TE px+sx ,py+sy:IF px+tsı=11 THEN FRINT CHR#(137):60T0 0 
| ‚ 1730 ELSE PRINT CHRF#(133):60T0 1730 | 
| ' 580 IF bild (px+sx,py+sy)=5 THEN SOUND 7,1000,14,5,,,3:bild (px+sk ,py+sy)=0:LOCA , © 7 
ı 7) TE px#+ex,py+sy:PRINT CHR$(32):6G0T0 1730 Er 
| ' 590 IF bild {px+tsx ,py+tsy)=&4 THEN 750 
s00 IF bild (px+tsx,py+tsy}=B THEN px=px+tsktpy=py+tsy:GDTD 1680 
‚510 IF bild ({px+tax,py+tsy)=1 THEN 1750 N 
. ı 520 px=px+esx:py=py+sy:LDCATE px „py:PRINT CHR#(128):60T0 550 '®e 
” +: 550 REM Geister 
540 GOSUB 870:" Geist 1 
| 550 GOSUB 940: " Geist 2 
560 GOSUB 1050: ° Geist 3 
| &70 GOTO 190 
© : &80 REM von Beist erwischt 
' 690 GOSUB 1920 | 
| ‘ 700 ELS:MODE i:PEN Z:PRINT"Leider wurden Sie vom Geist erwischt " 
| " ) 710 G0TO 810 
\ ‘ 720 REM kein Knoblauch mehr 1 
|® . 730 GOSUB 19720 
| ' 740 ECLS:MODE 1:PEN 1:FRINT"Leider haben Sie kein Knoblauch mehr " 
Fe 50 GOTD 790 
| 


750 ELS:MODE 1:PEN F:PRINT"Sie haben es geschafft und den Wampir ge 
toetet ":PRINT:PRINT"Herzlichen Glueckrunsch !1!!l!" 

Fri 70 GOSUB 2000 

DI 


an] 
OÖ 


790 * Anzeige 
© ı 800 PRINT:FRINT 
| ' 810 PEN 2: PRINT"Ihre Endpunktzahl betraegt : "score 
. ı 820 PRINT:PRINT"Moechten Sie nochmals spielen 7" 
ee 


zn nr u en in u zz u u 


” ! 850 af=INKEYF: IF a#="" THEN 830 
ı B40 IF afe"j" OR af="J" THEN RUN 
© | 850 IF as<>"n" AND a$<>"N" THEN 830 
+ B&0 PRINT:PRINT:PRINT"Schade" END: END: STOP 
‚ 870 REM Geist 1 
© ı 880 IF gi<X>0 THEN PEN 3:LOCATE pgix ‚pgiy:PRINT RIGHT#FISTRFÜgLI „L)egi=gi-1i:score= 
| ‚ score +gi#11:50UND 1,70,10,5:RETURN 


„m ' 890 LOCATE pgix ,pgiy:PRINT CHR# (32) | [ 
- / 00 IF pgix>nx AND bild ipgix-i,pgiy)=0 THEN pgix=pgix-I:bild (pgix ,pgliy!=B:bild 


| {pgix+1,pgly}=0:60T0° 746 

'® ; #10 IF pgix{p= AND bild (pgi#+1,pgiy}=0 THEN pgix=pgir*+1:bild tpgix,„pgly}=B:bild 
ipgix-i,pgiy)=0:G0TO 740 | 

720 IF pgiy?>py AND bild {pgix,pgaiy-i)=0 THEN pgiyspgiy-1:bild ipgix,pgly}=B:bild 
ipgix,pgly+1)=0:6G0TD 740 

330 IF pgiyipy AND bild (pgix,paly+1)=0 THEN pgiySpgiy+i:bild ipgix ,pgly}=B:bild 
tpgix „pgly-1)=0:60TD 740 

740 LOCATE pgix,pgiy:PEN 3:FRINT CHRFL13N 

' #50 IF pgix=px AND pgiy=py THEN 580 ELSE RETURN 

'® , ?&40 REM Geist 2 

| i Be IF Ges N THEN LOERFE, ‚DO2x BS2y EFER Ger BELLE a Re ge Drrgzzyzzez score 


| 

| 

l 

- & —trurz rer Sarırt 
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=ecore +92#11:50UND 2,75,10,5: RETURN 

950 LODCEATE pg2x „PgZy:FRINT CHRFISZ) 

790 IF pg2=*>pr AND bild (pg2=-1,pgZy}=0 THEN pg2x=pg2x-1:bild (pg2x „pgöy}=B:bild ı 

(pPg2x+1,pg2y)=0:560T0 1030 
1000 IF pgZäx“px AND bild (Ipg2xr+1,pgZy)=0 THEN pg?s=spg2x+i:bild (pg?x „pg2y}=B:bil 
d tpg2s-1,pg2y}=0:60T0 1030 - 
‚ 1010 IF pgZy?’py AND bild SPRERSRBEY 3 =N THEN pg2y=pgZy-1:bild (pg3& „pgäy)=B:bil 
o ' d fipgaik „pg2y+1)=0:60T0 1650 
„ 1020 IF pgZ2yipy AND bild (Pg2x ‚pg2y+1)=0 THEN ee (ipg2x ,pgäy)=B:ıbil 
d {pg2x,pg2y-1)=0:G0TD 1050 Ba - 
1030 LOCATE pg2x ‚pg2y:PEN &d:PRINT CHR#1140) | 
wo ' 1040 IF pg2«=px AND pg2y=py THEN 480 ELSE RETURN 
—_ ı 1050 REM Geist 3 
=“ ' 10&0 IF 93<>0 THEN LOCATE pg3x ,paSy:PEN SePRINT RIGHT£(STRFLIgSI „l)2g3=gS3-1:score | 
=score +93#11:50UND 4,80,10,5:RETURN 
o , 1070 LOCATE pg3< ,„pg3y:FRINT CHR# (32) 
+ 1080 IF pg3«#>px AND bild (ng3x-1,.pa3y)=0 THEN pgSx=pgSx-l:bild (pgSx,pgiy)=B:bil ' 
ı d (pg3<+1 ,pg3y)=0:G0T0 1120 
| =, 1690 IF pg3x{px AND bild {pg3x+i1,pg3y)=0 THEN pg3x=pg3«+1:bild (pg3x ,pg3y)=B:bil 
‚, d fpag35x=-1,pg3sy)=0:G0T0 1120 
1100 IF pgSy?py AND bild {pg3k „pgSy-1)=0 THEN pg3y=-pgsy-1:bild (pg3x« „pg3y}>=B:bil 


ı =! d (pg3« ,pg3y+1)=0:60T0 1120 
| '‘ 1110 IF pg3yipy AND bild (pg3x,pg3y+1)=0 THEN pg3y=-pg3y+1:bild (pg3x „pg3y}=B:bil ä 
u, d (pg3x ,pgSy-1l)l=0:60T0 1120 


1120 LOCATE pg3x,pg3y:PEN F:PRINT g3$ 
‚ 1130 IF pg3s«=px AND pg3y=py THEN 480 ELSE RETURN 
' 1140 mann=141:r=1:RETURN | a 
| ‚ 1150 mann=145:r=5:RETURN r 
m ' 1150 RETURN 
= 1170 mann=147:r=7:RETURN 
| 1180 mann=148B: r=8: RETURN 
| 1170 mann=1456:r=5: RETURN 
| 1200 RETURN 
Nr 1210 mann=143:r=3: RETURN 
Vi . 1220 mann=142:r=2:RETURN 
| ' 1230 mann=144:r=4: RETURN 
# 1240 IF bild {px ,„py-1}=B THEN 580 
‘ 1250 IF bild tpx,py-1}<>0 THEN RETURN 
= . 1250 LOCATE px,Py3PRINT" ":py=py-1:LOCATE PX „PY:FPEN Z:FRINT CHR# (mann) 
= ı 1270 RETURN 
‚ 1280 IF bild {px+1,py-1)=8 THEN 580 
= ‘ 1290 IF bild (px+1,py-1)<>0 THEN RETURN 
5 1500 LOCEATE px,py:PRINT" "epy=spy-l:px=px*+1:LDCATE px ,Py:PEN 2:PRINT CHR#$ {mann) 
‘ 1310 RETURN 
ı® ‚ 1320 IF bild (px+1,py!=B THEN 480 
' 1330 IF bild (px+1,py}<>0 THEN RETURN 
1540 LOCATE px ,„py=:FRINT" "spxe=px+1:LOCATE px,py:PEN 2:PRINT CHR# (mann) 
1550 RETURN 
1350 IF bild {px+1,py+i1)=B THEN 580 
| 1370 IF bild (px+1,py+1)<>O THEN RETURN 
| 1380 LOCATE px,py:PRINT" ":ps=px+l:py=py+lLıLOCATE px,py:PEN 2:PRINT CHR& (mann) 
' 1390 RETURN 
ı® 1400 IF bild (px,py+1)=8 THEN 480 
1410 IF bild (px,py+1)<>0O THEN RETURN 
, 1420 LOCEATE px,pYy:PRINT" "zpy=py+1:LDOCATE px,py:PEN 2:FRINT CHR#F imann} 
| ' 1430 RETURN 
; 1440 IF bild (px-1,py+i1}=B THEN 480 | 
ı® ' 1450 IF bild t(px-1,py+1)<>0 THEN RETURN mw 
1450 LOCATE px ,„py:PRINT" "z:py=py+l:px=px-1:L0CATE px,Ppy:PEN 2:FRINT CHR&£ (mann) 
1.1470 RETURN wi - 
ı @ ı 1480 IF bild tpx-1,py)=B THEN &80 :@ 
' 1490 IF bild tpx-i,py)?>O THEN RETURN 
| 
| 
| 
| 





„ ' 1500 LOCATE px ,py:PRINT" ":px=px-1:LOCATE px,py:PEN 2:PRINT CHR# (mann) 
- ;- 41510 RETURN 

‘ 1520 IF bild tpx-1,py-1)=8 THEN 580 
© | 1530 IF bild tpx-1,py-1)<>0 THEN RETURN 
1540 LOCATE px ,py:PRINT" ":py=py-i:px=px-1:LDCATE px,pY:PEN 2:PRINT CHRF (mann) 
— + 1950 RETURN 
“ ' 1560 GOSUB 1830: RETURN 

‚ 1570 GOSUB 1540: 6GOSUB 1840: RETURN 
u ' 1580 GOSUB 1550: RETURN 
+ 1590 GOSUB 1570:605UB 1450: RETURN w 
1500 GOSUB 1570: RETURN 
1810 GOSUB 1570:605UB 1540: RETURN 
‚, 1820 EUSUR 1540: RETURN 


m = Ser Hg a —— Tr FE — 
. ie ; 
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1830 
1540 
1550 
1550 
1570 
1880 
18970 
1700 
1710 
1720 
1730 
1740 
1750 
1750 
1770 
1780 
1770 
1800 
1810 
1820 
1830 
1940 
18509 
1850 
18706 
1880 
1870 
1700 


52=-1:RETURN 
s#=1:RETURN 
5y=-1:RETURN 
sy=1:RETURN 
REM Schuss auf Geist 


REM Schuss Mauer 
px=ehripy=hy 

f=0 

Ss4=0:sy=0 

GOTO 190 

REM Steuerung 


jo=0 

in=INKEY (0) 

IF in=0 THEN jo=sjo#tl 
in=INKEY (2) 

IF insö THEN jo=jio+t?2 
in=INKFEY (8) 

IF in=0 THEN jo=jo+4 
in=INkEY (Il) 

IF in=0 THEN jo=jo+B 


gg=INT {RND (1)*5)+3 
IF px=pgix AND oyspgiy THEN gi=gg 
IF px=pg?2x AND py=pgZy THEN gZ=gq 
IF px=pg3x ANd py=pg3y THEN 


jo=JüOYtö}:IF jio“>0 THEN RETURN 


GOSUB 1540:G605UB 15450: RETURN 


95=99 


IF INKEY (PH)=0 THEN jo=jo+ils - | . 
IF jo=3 OR jo=7 OR’ jo=-11 OR jo=12 OR jo=13 OR jo=-14 DR jo=15 DR ıo=-iä OR joa 


=1? OR jo=23 OR jo=27 DR jo=28 OR jo=27 OR jo=30 OR 


jo=31 THEN jo=0: RETURN 
1710 RETURN 

1920 REM Trauermelodie 
197350 
1740 
1950 
1980 
1iPF70 
1980 
1770 
2000 
2010 
2020 
2030 
12040 
2050 
2050 
20670 


RESTORE 1980 


SOUND 7,3,5,9,ı1 
GOTO 1950 


RETURN 


RESTORE 2040 


SOUND 7,a,b, 
GOTO 2030 


Furt 


RETURN 


REM Geschafft-Melodie 
ENT 1,5,1,1,10,-1,1,10,1,1,5, 71,1 


READ a,b:IF a=-1 THEN RETURN 


DATA 319,50,402,40,425,30,402,30,478,300,-1,-1 


READ a,bzIF a=-i THEN RETURN 


DATA 478,20,0,10,478,20,425,40,506,45,478,300,-1,-1 


Ein Action-Spiel für alle MSX-Computer 
















mit 3dimensionaler, voll beweglicher Graphik! 


Während eines Patrouillenausfluges 
durch die Galaxien wurde Ihr Mutter- 
schiff durch einen feindlichen Angriff 
zerstört. Nur Sie allein konnten sıch 
mit einer Raumfähre retten und den 
Planeten SOLARIS anfliegen. Hier hof- 
fen Sie, Ihre Treibstoffvorräte auffüllen 
zu können, um somit zur nächstgelege- 
nen Raumbasis zu gelangen. 
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Kurz über der Öberfläche des Planeten 
fällt ein Teil Ihrer Steuerung aus, so dab 
es Ihnen unmöglich ist, aus dem Gravi- 
tationsfeld von SOLARIS zu entkom- 
men. Außerdem haben Sie keine Kon- 
trolle mehr über Ihre Geschwindigkeit. 
Sie rasen mit Vollgas über die Öbertlä- 
che, ohne die Möglichkeit zu haben, 
Ihre Geschwindigkeit zu drosseln. 


Ihre einzige Chance zu überleben be- 
steht darin, möglichst viele Energiegat- 
ier zu durchfliegen, um zum nächsten 
Teibstoffdepot zu gelangen. 

Jedes Treibstofldepot wird jedoch von 
einem UFO bewacht, so daß Sie erst 
nach dessen Zerstörung zum Depot 
vordringen können. Mit etwas Ge- 
schick können Sie hier Ihre Raumfähre 
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2 am en ii m 


auflanken und zum nächsten Depot 


nahe! Die Anzeige „Gates“ zeigt Ihnen, 


nur abschießen müssen. Danach rasen 





| weiterfliegen. wie viele Gatter Sie noch zu durchfllie- Sie auf das Energiedepot zu, welches 

Nachdem Sie das Programm geladen gen haben, Beim ersten Level sınd es Sie nur berühren müssen, um Ihre 
und gestartet haben, wird die Graphik nur 5, bei Level 6, dem höchsten Level, Raumfähre aufzutanken. Jetzt geht es 

| aufgebaut und eine kleine Melodie ge- jedoch schon 30! im nächst höheren Level weiter, Das 

| spielt. Wenn die Musik verklungen ist, Nach erfolgter Fahrt durch die Gatter Spiel ist beendet, wenn Ihre 10 

können Sie wählen, ob Sie mit Joystick erreichen Sie die UFO-Wache, die Sie Raumfähren alle zerstört sind, 

| A, Joystick B oder mit den Cursorta- 


| sten spielen wollen. Drücken Sie ein- 





| fach die entsprechende Feuertaste - bei 
. den Cursortasten die Leertaste, 
| Steuern Sie Ihre Raumfähre jetzt im- 
mer zwischen den Energielürmen 
i durch und kommen Sie diesen nicht zu 
\ — = 
| EN En na So pe ee Fe, 
©. 11a” 5 0 .: AR 1.5 
| ıi29 | —— i 
z 139 *] ıINSHK I i 
rad | —— 
BE 7 
u , 160 ° | (6? Januar 1985 by I 
“1 rar Volker Beoker _ | 
Fe NT Da 
DT | 
BB el] 
.'z20 ’ 
' 238 CLEAR 3888 | 
© , 248 0N STOP G0SUR 3198 | 
' 258 0N ERROR 60T0 3138 
n \ 260 STOP ON 
“= | 278 DEFSTR A,B,cC 
ı 280 DEFINT E,8,1,J,K,P,0,R,8 oz x on 
© | 299 DEFSNG F ‘© 
| 388 BIM AM£T,33,Bi2,323,ET{12,4),EF{12) L Pc 
' 318 RESTORE 2488 iu 
@ ı 328 FOR k=i TO T:FOR I=1 TO 3:REAb AMSK,I>:NEXT I,K ‘© = 
; 338 FOR I=4 TO i2:FOR K=i1 TO 4:REAb ETCI,KI:NEXT K,l Bein 
o , 34@ FOR I=1 TO 12:READ EFCID:NEKT a u 
‚, 358 605UB 2378 ii 
36B PLAY AN{Z2,3>,AM(2,15,AM«&2, e} x Sr 
© , 378 B0SUB 2919 ı © te 
' 380 PLAY AMC3,3),AM(3,1),AM(3,2) | 
m ' 390 G0SUB 3868 - Bm 
= 4988 PLAY ANc4,33,AMk4,1),AMc4,2) 'w 5 
ı 418 B0SUB 3899 Gh 
RE IWAB 6 GDERRB © 5 
| Bl IHIJ ® PoR 8 KLM 9] Pr FE ER | Br 
| _., 438 13-4 
| ® ı 448 LOCATE 8,10:PRINTB<L,1)+BK2,1) '@ Bu 
| ' 458 LOCATE 8,12:FOR Iei TO 11:C="":FOR k=1 TO 32:1F PLAYC3> THEN 460 ELSE IS=15+, = 
| ! 41:PLaY ANCIS,33,AM(IS,1),AN<IS,2) ' Er 
\ 468 Cac+cHRSCLI+CHRECE4+ I): NEXKT:PRINT C; :NEXT:PRINTCHRFC3B);CHRFKCIB) m 
' 478 G=a"":LOCATE 8,23:FOR I=1 TO 341:6=G+cHRFC1I+CHRSCTEI:NEXT:PRINT C+HCHREL3BI+CH (ire) 
| ® . R$c383:VPOKE sHiB08+767,12 .® 
' 488 S0SUB 1718 ne 
| ı 498 DATA 42,42,113,113,241,241,241,241,145,49,161,241,241,241,241,241,129,129,81: „ I 
u ‚168,168,133,91,88,129,143,129 0 
e | ı Sad RESTORE 498 mE 
| ®@ | 5ie FOR I=8 TO 16:PUT SPRITE 1,(8,85,0,48:NEXT oe 
I 528 FOR I=B TO 26:REAb K:VPOKE &H2B88+1,K:NEXT in 
| _ ı 538 Sb=i we | 
1 W 1 548 LOCATE 11,22:PRINT AU:VbP(1)=227 ı 
- ; 558 PUT SPRITE 8,(64,495,10,68:PUT SPRITE 9,<96,48),18,61:PUT SPRITE 18,(128,46> | BE 
| u ‘ „18,.62:PUT SPRITE 11.(169,48).18,53 u. Bu 
sz i — Bu g= 
| I" 568 Ex=0 u 
| _ | 57@ 0N INTERVAL=8 G0SUB 1558  - 
® , 588 INTERVAL ON "® BE 
| ‚ >98 6P=1:FS=0:RU=1:K5=18 3 2 
| u ' 688 ON STRIE GOSUB 668,678,688 we 
Er ' s18@ IF PLAY<a> THEN 618 | '@ 
er green Eee, 
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628 FOR I=8 TO 2:STRIGCI? ON:NEXT = 
638 FOR I=i TO 4:04 I 60SUB 1758,1779,1758,1798 B= 
© ; 648 FOR k=1 TO 8Be8:NEXT K,l E= 
656 GOTO 638 I 
| 5658 JV=B:60T0 690 = 
#1 676 JV=1:6070 696 1 
| 688 IV=2 = 
+ 698 FOR I=8 TO 3:5TRIGtl) OFF:NEHT > 
ı 78 INTERVAL OFF:LOCATE 11,22:PRINT AG = 
' "41a FOR I=8 TO A11:PUT SPRITE 1,18,03,0,48: NEXT u: 
| "20 G60SUR 17SB:VDPLCA)=226:PUT SPRITE 8,(128,152)3,15,8:PUT SPRITE 1,(128,1753,4,1, @ ZZ 
' :SQUND 7,28:S0UND 6,18:50UND 2,108:SOUND 3,2:50UND 9,12:S0UND 16,18 KEEN 
o- ' 138 ON_SPRIIE G0OSUER 2178. Fe 
ı FI n40 $2Z=152:855@128:5P=B: IVed:EKet:EX=-1:ESSRNbe1T5I#235:5E=-1:K6=5HRU:KF=SB0: 605) = 
| RB 2228:60SUB 2250:605UB 2268:608UB 2278:RA=@:RE=® BE 
® . 758 INTERVAL ON:SPRITE ON > Be 
| 768 IF NOT SE THEN IF Kö=8 THEN 1218 ELSE 728 | = 
|. ı 778 IF RA THEN 1270 | jan 
1° ' 788 IF RE THEN 868 Keen 
| ' 738 SOUND 7,28:S0OUND 6,18:SOUND 2,188:S0UNb 3,2:50UNDb 9,12:50UND 18,10 | er 
| ' 888 JS=STICKCUW) vu 
siB ON JS BOSUB 1369,1328,1358,1370,1499,1420,1458,1478 | H 
828 IF J$=8 THEN IR=8:5P=& | = 
| ® » e3@ PUT SPRITE 8,(88,52),15,5P:PUT SPRITE 1,X88,175),4,5P+1 = 
ade IF IVC>IR THEN IV=IR:0ON IR+1 GOSUE 1758,17968,1778 | a 
u 1.858 GOTO 7658 | = 
|) 860 TINE=d:SE=B: IR=B | == 
| 878 INTERVAL OFF:ON INTERVAL=-8 S0SUB 1918 = 
| 288 INTERVAL ON:PUT SPRITE 3,(8,8>,8,48:PUT SPRITE 4,(8,0),8,46 Ber 
838 ON SPRITE 60SUB 2298 sel 
| 988 ON STRIG GOSUB 1240,1249,1248 
| 918 PUT SPRITE 3,(E5,485,19,18 - 
928 STRIGCJV> ON = 

' 938 IF TINE>=588-58+RU THEN 1028 Ik 
ı 948 IF SE THEN 1086 
350 SOUND 7,28:50UNb 6,18:50UNP 2,180:50UND 3,2:SQ0UNp 9,12:S0UND 18,18 ; 
968 JS=STICKtJV) = 
978 ON IS GOSUB 1500,15190,1510,1518,1509,1530,1539,1536 ii 
988 IF I/$=@ THEN IAR=8:5P=B j 
398 PUT SPRITE 8,(55,529,15,5P:PUT SPRITE 1,£35,175>,4,5P+1 Ei: 
| 1888 IF IV<>IR THEN IV=IR:0N IR+1 GOSUB 1818,1856,1838 hat 
| 1818 580T0 ?38 et 
| 1829 SPRITE OFF :PUT SPRITE 3,(8,0),8,.48:PUT SPRITE 5,(8,6),08.48 - 
1238 STRIS<IV) OFF:INTERVAL ON =: 
1046 ON SPRITE G0SUR 2178 Er 
1858 SPRITE ON:B0SUB 1758:5E=-1:!EX=-1 mi 
1068 RE=@:RU=RU+1:1F RU>6 THEN Russ ee: 
| 1878 KG=5#RU:INTERVAL OFF:GOSUB 2269: EK=1:INTERVAL ON:B0T0 769 = 
| 48808 PUT SPRITE 5,(8,065,8,48:RE=@8:[R=B:Ek=-1 ei 
1098 INTERYAL OFF:ON INTERVAL=EB GOSUB 1878 ca 
1166 INTERVALL ON Se: 
.ı 4118 ON SPRITE 605UB 2358 a 
| 1128 SPRITE ON E5 
| 1138 IF RE THEN 1828 an 
ı® | 1148 SOUND 7,28:S50UND 6,18:S0OUND 2,186:S0OUND 3,2:50UND 9,12:50UND 18,18 5 
| ' 441586 JS=STICKtIV) Er 
| 4160 ON JS GOSUB 1508,1518,1518,1518,1508,1530,1538,153® u 
| @ 4 ira IF JS=8 THEN IR=8:$5P=B u 
| 11858 PUT SPRITE 9,(88,3523,15,5SP:PUT SPRITE 1,158,175),4,5P+1 | Er 
| © | 1198 IF IV<C>IR THEN IV=IR:0ON IR+1 BOSUB 1878,1910,1898 | BE 
| ‚ 1204 6010 1138 | Fat 
|  } 1218 INTERWAL OFF:PUT SPRITE 8,(8,0),8,48:PUT SPRITE 1,(0,685,8,48:5DUNI 9,8:50UN, 1 
®@ ı B. 18,8 Eat 
' 4220 IF FS>FH THEN FH=FS:60SUB 2289:50UND 7,56:PLAY "Ti2BVA150SF2":PLAY-AHLT,2d.A, = 

Je I MCT,1>,AM<T,23 ia hz. Ben 
| = 1238 6070 530 ” 
3.4248 STRIGCJV) OFF:GOSUB 1818:PUT SPRITE @,(88,52>,15,8:PUT SPRITE 1,(55,173),4, | me 
8 \.1:IR=B:INTERVAL ON:SE=9:SOUND 9,8:S0UND 18,8:50UND 6,28 :@ Ei 
| ' 41258 FOR SG=SZz-16 TO 48 STEP -3:PUT SPRITE 5,(55,9565,13,26:SOUND 10,(56-1B>z1B: 1 Bi 
K72 F SE THEN RETURN. N en 
=” 1 4268 NEXT SG:PUT SPRITE 5,08,09,0,46:STRIGCJV> ON:RETURN 0 
1270 SOUND 9,8:SOUND 18,8: ’ Kein 
© | 1288 FOR Ii=82 TO 165:VPOKE &H1B88,11:FOR K=i1 TO B0:NEXT K,li . = 
| ' 1298 IF KS=@ THEN 1218 ELSE 720 Kr 
m an Te TE TS FC TEE TE Base TS RE SIE TU Peg see PETE? 
ee a EEE U ne FT DE ee ee ee u FT a Eee ee ri ee, BETZ, a ze wi . 
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1368 SP=8:5Z=3Z-1:IF SZ<1iS8 THEN $Z=e1598 
41318 IR=8:RETURN 
1328 Sp=a2:52=5?-1:1IF 32£158 THEN 57=158 
1338 55=55+3:1IF 55>231 THEN $5=231 
1348 IRe1:RETURN 
' 1350 Sp=2:55=55+3:1F 55>231 

ı 1368 IR=1:RETURN 

4370 SPa=2:52u57H+1 

1388 55=55+3:1IF 55>231 THEN $$=231 

' 413998 IR=1:RETURN i. 
5 14688 5P=9:87=57+1 
| ' 4418 IRed:RETURN 
Br 1426 SP=4:82=352+1 
ı "I 44398 55=55-3:1F 55<£9 THEN 55=9 
: 4448 IR=2:RETURN 

© , i450 5P=4:55=55-3:1IF 5569 THEN 55-9 


THEN 55e231 





1469 IR=2:RETURN | 
7 4478 Sp=4:82=5Z2-1:IF SZ<150 THEN $2=158 | 
ı@ ı 1488 S5=S5-3:1F SSc9 THEN S5=93 | 
| ; 1496 IR=2:RETURN | 
= ! 1568 SP=8:1IR=8:RETURN - 
ı 1518 5Pe2:585=$5+3:IF 557231 THEN 55=231 r] 
' 4528 IR=1:RETURN “ 
© , 1538 SPp=4:55=55-3:1F- SS<9 THEN 55=9 \r 
' 41548 IR=2:RETURN J 
„ ı 1558 ON Sb 6010 1568,1578 | 
"4568 Sb=2:VPOKE &H2684,162:VPOKE &H2881,162:50T0 1548 | - 
' 4578 Sb=1:VPOKE &H2881,42:VPOKE &H2860,42:60T0 1648 | 
© ; 1588 ES=ES+4:6P=6P-1:IF 6P=9 THEN 6P=32 - | 
1598 IF ES>239 THEN ES=8 | 
- 1668 LOCATE 8,18:PRINT B{1,6P}+Bi2,6P):60T0 15586 | y 
1618 ES=ES-4:6P=8P+1:IF 5P=33 THEN 6P=1 1 
ı 1628 IF ES<8 THEN ES=239 
= ' 1638 50T0 16858 ee 
5 4648 IF NOT EX THEN RETURN | 
| ' 4658 PUT SPRITE 3,CES+ET{LEKR,39,ETKEK, 239,1, ETCEK,13:PUT SPRITE 4,(ES+ETCEK, 3)+ET' 
© ı (EK,4),ETCEK,233,1,ET(CEK,1) g 
1668 EKSEK+1:IF EK<13 THEN RETURN 
m ! 1678. EK=1:1IF SSICES+ET(L2,3)3 AND SSTCES+ETCAZ2,F3I+ET(12,49) THEN FS=eFS+5@:505UB 
“| 2230:K6=K8-1:605UB 2268:PLAY "T24@Vi405C1605E16“: IF K6=B THEN RE=-i | 
1688 ES=ANDi119IE255:KFeCKö-1B)EABSCCcKF>9 I): GOSUB 22508:1F KF=8 THEN Ra=-i | 
 ; 1698 PUT SPRITE 3,(8,0),8,48:PUT SPRITE 4,(8,0),6,48 | 
| 1788 RETURN | 
5, 4718 FOR I=ei TO 15:KaRNbi 72533191: VPDKE &HABBG+128+K, 35: NEXT 
= + 4728 FOR I=1 TO 308:KeRNb(725%3191:VPOKE &H1A00+128+K,33: NEXT | 
ı 1738 Al="41985 4 F+CHR$C3B)+CHRFL 30): Ace" A" +CHRFCIB)+CHRF EIN) 
1748 RETURN 19338 ON INTERVAL=8 GOSUB 1968 | 
| 4758 ON INTERVAL=8 605UB 1556 1848 RETURN | 
| 141768 RETURN 1858 ON INTERVAL=E 605UB 1998 
| @ ı 1778 ON INTERVAL=B G0SUB 1588 1866 RETURN 
| . 1788 RETURN 1379. 0N INTERVAL=8 605UB 2638 
m ' 1798 ON INTERVAL=B 60SUB 1618 1888 RETURN 
ı = , 4888 RETURN 1898 ON INTERVAL=E G0SUE 2868 
' 4818 ON INTERVAL=B B0SUB 1938 19868 RETURN | 
ı® , 1828 RETURN 1918 ON INTERVAL=5 60SUB 2698 | } 
Bi 1928 RETURN | 
ı®@ ı 1936 ON 5b 60T0 19468, 1956 | 1 
‚ 1948 Sb=2:VPOKE 6H2888,152:VPOKE &H2881,162:VPOKE &HABBE,72:60T0 28260 
| & ' 1958 Sp=ei:VPOKE &H2881,42:VPOKE &H2008,42:VPOKE SHI1BBE,78:80T0 2926 | 4 
I; 1368 ES=ES+4:6P=6P-1:IF 6P=& THEN 56P=32 A 
| _ | 1978 IF- ES>239 THEN ES=8 | 
| ®@ ı 1988 LOCATE 8,16:PRINT Bi1,6P>+Bt2,6P5:80T0 1930 | 
| ‚ 1998 ES=ES-4:6P=6P+1:IF 6P=33 THEN 6P=1 
| = ! 2888 IF ES{8 THEN ES=239 | 
| 7, 2818 6010 1988 | = 
| ' 2828 WPOKE 5&HIAEBD,ES:RETURN = 
8, 20838 ON Sp 60T0 2846,2850 e | 
| ' 2048 Sb=e2:VPOKE bHZBAB,.Ii62:VPOKE &H2801,162:60T0 2128 | | 
ı _ 12858 Sp=1:VPOKE 5H2061,42:VPOKE LH2B08,42:8070 2128 | 
| #1 2860 ES=ES+6:6P=6P-1:IF 8P=d THEN 6P=32 | T 
ı 2878 IF ES?239 THEN E$=8 + 
© | 2888 LOCATE 6,18:PRINT B(i,6P>+B(2,6P):60T0 2930 Ä H 
| ı 2898 ES=ES-6:6P=6P+1:IF GP=33 THEN 6Pei er! 
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R 
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a ir han. le le ah he er a rn u m a m 


FIR 


2118 
e1l28 
2138 
2148 
2158 
2168 
2170 
21808 
2198 
2200 


IF ES<A THEN E5=2239 
GOTO 28898 
IF RE THEN 
PUT SPRITE 
EK=EK+i1: IF 
RE=s-1 

PUT SPRITE 3,(8,0),8,48:RETURN 

INTERVAL ÖFF:SPRITE OFF 

FOR Isı TO 8:50UND 1,9:NEXT 

SOUND 6,28 

FOR I=23 TO 28:PUT SPRITE 8,(55,52>5,15,1:PUT SPRITE 1,155,1757,#, L:50UND 18 


RETURN Ä 
3,CES,ET<(EK,27),4,EFCEKk) 
Ekt13 THEN RETURN 


‚38-1:FOR kK=i TO 98:NEXT Kl 


2216 


SOUND 1@8,8:°PUT SPRITE 3,18,9),0,40:PUT SPRITE 4,£8,03,0,48:K5=K5-1:605UB 22° 


78:50UNDb 18,8:FOR K=i1 TO 186:NEXT 


2228 
2238 
2240 
22>60 
2266 
22706 
226850 
2298 
2386 
2319 
2328 
vi 

23308 


WAL ON:SOUNB 18,8: 


2348 
2338 
2360 


238 :RE=-1:RETURN 


2378 
4,4 

2388 
2390 
2488 
2418 


dr, 32: 


2428 


2, 19, 


2438 
2446 


2458 
2460 


SeusssuhrseiräärDh"+CHRECZBBI+CHRFCZBLIHCHRECZBZIHCHRFCLIZIHCHRECAIFIHCHREEAIH) 
+"Ai8"” 


24708 


T K,I:RETURN 


2480 


BoSscbc2.E2. ,‚ T1ZBVı15R2.R2.R2.R2.R2.R2,R2662, FA.FBFZ. FA.FSF2.,Ti20S8N2088803604CC0 
360400036046C036040C036040C03604CC03GBBGBBGBEGBEGEBSBBSBBGBBEOACCOSGEHACK 


2498 


05PC#CO4BAG2.62. , TL2BViSR, T120583M2889803604CC036046C03604CC03604CC03604CC03C04CC 
OS6BBEGBBOISFRO4CCOIFHOSCCOIGBEGBBOISFHOSCCHIFRÜAGGOSERBBGBB 


2508 


662. . T128V1504R2.R2.C2.E2.,T12858N28080903604CC036046603604CC03604C703604CC0 35 04T 


SE=8:RETURN ! 
IF F5>3393999'! THEN F5=999999! 
6, 1:PRINT USING 

6.2:PRINT USING 

417,2:PRINT USING 
27,2:PRINHT USING 
LOSATE 23, 1:PRINT WSTNG 
SPRITE OFF:EH=8:605UEB 1758 

FOR I=1 TO 8:50UNb I,8:NEKT 

SOUND 6,28:PUT SPRITE 5,(8,67,6,48 

FOR l=23 TO 28:PuT SPRITE 23,{ES,4935,108,1:50UNb 18,39-1:FOR Kel TO 28:NEXT K, 


"Aunaah";ES:RETURN 

"Sa#";KF:RETURN 
“"e#";KG:RETURN 
“##*;KS:RETURN 


LOCATE 
LOCATE 
LOCATE 
LOGATE 


SOUND 10,8:PUT SPRITE 2,18,0),0,40:FSu=FS+1088: INTERVAL DFF:GOSUR 2238: INTER 
FOR k=1 TO 108:HEXT 
SE=-1:RETURN | 
INTERVAL ÖFF:SPRITE OFF:PUT 5PRITE 3,68,8),8,498 j 
KE=588:508UB 2250: PLAY "TZ4BW140SC1EF16A1506CHOFALEOECH" :FS=FS+2500:605UB 2 


KEY OFF:SCREEN 1,3,8:CLS:HIDTH 12:LOCATE 8,12:PRINT*bitte warten":COLOR 15, 
PLAY AN<1,3>,AMt1,13,AM(1,2) | 
SOSUB 2830:C0L0OR 1,1,1:MWIDTH 32 

P=64:FOR Q=8 TO 3:PUT SPRITE Q,(P,89,5,0+54:P=P+32:NEXT 

PUT SPRITE 4,178,405,13,598:PUT SPRITE 5,C78,48),2,51:PUT SPRITE 6,1114,48), 
PUT SPRITE 7,1(146,48),8,53 Te 

PUT SPRITE 8,164,89),198,60:PUT SPRITE 9,(96,88>,18,61:PUT SPRITE 18,(120,88 
62:PUT SPRITE 11,(168,885,10,63 4 

PUT SPRITE 15,196,128),2,58:PUT SPRITE 16,(128,128),2,59 e 
PUT SPRITE 12,(87,159>,14,47:PUT SPRITE 13,1119,159>,14,48:PUT SPRITE 14,1) 


MN: GEN VE TEEN 


FOR le8 TO 31:VPOKE 5&H2888+1,8:NEXT 
Bii1,13="35 Kemhüeäsääshbeaiihiiiäbene":Bi2, dere" +CHRELZILIHCHRFL2123 


FOR I=2 TO 232:F0OR K=i1 TO 2:BCcK,l3eMIDscBcK,1-13,2,31>+LEFTFCBIK, I-12,213:NEX 


a a 


DATA T12BV41SO4EFFHRGEOSDRCC2. D4EFFRAGEOFCROSBBZ. ADFC. O4ABAZ, ADSG.DARBRZ. RER 


DATA TL2BVLISO4EFFARGEOSPRCC2. D4EFFARGEODSCRO4BBZ. O4ADSE. D4nsA2., BOSSE. D4BBBZ2.R 


u Oo a an 


DATA T128V1504C2.03B04CDE2.62,.C2,03B04CEF2,R2.0SCCO4BARFOSTCCOABARFAGFHFEDCE 


CO3SB8BBGBBGEBBEBBEBBERBGBBEEBBBEUACCOIGEBR Hi 
2516 DATA T12BV1504C2,03B04CDE2.62.C2, 03B04CEF2.A2.05CCO4BARFOSCCO4BARFEGAGABOSE 


2.62. , T1208V1504R2.R2.C2.E2,. ‚T120858M2008680236046503604CC03504CC03604CC03604CC0350 ı 
4CC036BBEBBGBBGEBEGEBGSBEGEBSBBGEU4CCH3G0U4CC 


3520 DATA Ti2BWiSOSCRCCh. ESSZFRC.O4ABE-OSDRRO4G. ABE-OSPDRC,046905CRCCD, EBGZFRC.O 


4ABOSCEERÜ4B,D0SbEC2.C2, Eur 
.„ T128SaNn28B080IFAAFAAFAAFARE-04CCOIE -D4CCOIB-04CC0OIB-DO4TCCOIFAAFARFARFAREAREGH GH 
EAAB-Dace 

rel: 


‚ TAZOVAS04R2.R2.R2.R2.RB-E-R2,RB-B-R2.R2.,R2.R2.R2.ROSCER2 


DATA TL2AUISOSCHCCH. ESGEFRC.D4ABE-OSFDDRO4G.ABE-OSDDRC.046B0U5SCRECP.ESGZFRE.D 


4ABOSCEERO4E. 0568C2.CAF ,T128V1504R2.R2.R2,R2.,RB-E-R2.RBE-E-R2,R2.R2.R2,R2, ‚ROSCERE | 
.; TL2BSEN2B80803FAAFARFAAFRAB-0SCCOI3E-04CCO3B - DIE 03 - -U4CCO3FAAFARAFAAFRHERREGHGR 
EAAB-D4cc 


2540 DATA T128V1504A205F04A205C04B-.05CBPP2EO4R- -205h0462AF.ABOSCCZFO4AZUSFO4A205 | 


Eh. EBFG2FO4A205P046205CQAF2.F2.,T129Vv1504R2,R2,R2.B-2RR2.R2.R2.AZRR2.R2,.R2,RZ.RE | 


„R2,.Rz, 


"aunakh";FH:RETURN a - 





Aliieerecre 
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nr 


Nachdem Sie bei den bundesrepublika- 
nischen Endausscheidungen erfolgreich 
waren, erwartet Ihr Land nun von Ih- 
nen, daß Sie es würdig verlreten wer- 
den. 

Machen Sie sich zunächst für den IO0- 
Meter-Lauf fertig. Wenn Sıe startklar 
sind, drücken Sie die Feuertaste am 
Joystick. Achten Sie nun aufden Com- 
puter, er gibt Ihnen das Startkomman- 
do. Bewegen Sie den Joystick nicht zu 
früh, sonst verursachen Sie einen Fehl- 
start. Bei drei Fehlstarts werden Sie 
disqualifiziert und müssen den 
Wetikampf abbrechen. 

Die Bewegung des Läufers erfolgt durch 
schnelles Auf- und Abwärtsbewegen 
des Joysticks. Nach dem Start laufen 
Sie, vorbei am rasenden und anfeuern- 
den Publikum, auf das Ziel zu. Im Ziel 
angekommen, wird sofort Ihre Zeit in 
Punkte umgerechnet und angezeigt. 
Wenn Sie sich erholt haben, drücken 
Sie „Start“ und es geht weiter mit dem 
100-Meter-Hürdenlauf. Gehen Sie ge- 
nauso vor wie beim 100-Meter-Lauf 
und drücken Sie vor jeder Hürde den 
Feuerknopf, um die Hürde zu über- 
springen. Auch hier werden Ihnen im 


ı 1A PFM Oliver Schmidt 
12 PEM 

, 13 REM 

' i4 REM 

ı 18. POKE 599; 
ı 1725.21 
=A FEHI=0 
San REM UNTERPROGRAMNE 
=a1 GOSUB 319 


I SOSLUB 
GOSIB 
; GNSLB 
 GASIUR 
GOISUB 


a?Ba:REM DLI 


REM START 






ogr am 


des Monats 


u SPRI 








EN N ie Ä 


Ziel Zeit und Punkte angezeigt. 

Der nächste Wettbewerb ist der Weit- 
sprung. Hier können Sie gleich loslau- 
fen und bei der Absprungmarke den 
Feuerknopf zum Sprung drücken. Wer 
übertritt, wird disqualifiziert! Drücken 
Sie „Start“ für den zweiten und dritten 
Versuch. Wenn Sie nach dem dritten 
Versuch „Start“ drücken, erscheint Ihre 
beste Weite. Sind Sie damit zufrieden, 


APOKE PI2,IRICLR DIM AsC1AM),HSCZ):POKE 53248,0:POKE 53249,@:POKE | 
-9:D1S=1 :PLIHKT=9: VER=1 :BEST=M:POKE 34825,DIS)POKE 34832, | 


Aa:REM BILDATEN LOESCHEN 
> GaSUB FRaaı REM LANDSCHAFT 
35Ad:REM DISPLATY-LISTE 


daaAırEM ZEICHENSATZ 
SaadB:REM SPRITES 

gsam:REM FAGE 3 - BATEN 

Ss Gosıla 1maaa:REM MASCHINENSPRACHE 
Gasup Paas:REM ANFANGSBILD 


NTER ’84 


ATARI 


Nehmen Sie an den 
Olympischen Spielen 
von Los Atariles teil! 


auf Atari 800XL 





drücken Sie erneut „Start“. 

Jetzt kommt die letzte Disziplin — das 
Speerwerfen. Gehen Sıe hier genauso 
vor wie beim Weitsprung: Loslaufen 
und den Feuerknopf zum Werfen des 
Speeres drücken. 

Schließlich erscheint das Schlußbild, 
wo Ihnen mitgeteilt wird, wie Sie den 
Wertkampf abgeschlossen haben. 








| 


JUNI/IULE 1985 


\ >92 POKE 559, dE:POKE 53248.1728 fe 
ag. IF STRIGEA)=1 THEN =AR | 
‚ 1A FAR B=i4 TN A STEP -9,1:50UHD 1,8. 19,B:SaLND 2,81,10,B:NEXT B 


POKE 559,0: FOKE r7.@ 
>96 POKE SRA,A:PODKE S561,#:FOKE S4r7bıB 


SıPnkE 756. 12A:PNKE 7OB,ZB2:ıPOKE 799, 14:POK - 
FE >10, 118:POKE 711, Ta:POKE 712,8 | 


ı 
“ 
1 
1 i 
®@ 
Ei 
a 
ii 
en 
| 
1 | 
|| 1 
! | 
4 i 


HOMECoMPrUTER #1 


— m — —— 


220 FOR 1=246an TN 34720:POKE I,@:NEXT T:As="Auf die Plaetze !":ADD=34788:GOSUB 
9 Aaaaa:anslua 450 | 
| 326 FOR 1=24700 TD 24716:POKE 1,0:NEXT Iiflß="Fertig 1":ADD=34704:G0SUB Sana :G08 


| IE 450 

424 FOR I=#47A4 TO 34711:FORE 1» A:NEXT 1:SOUND 6,19,4, 15: A$="Los 1": Abb=34705:60 

% Sum Saar j 

| aaa AsllSPe 28672 ):SHUND A,A,A,d:SOlnD 1.9,4.8 | = 
| m ' 407 FOR H=15 TO 8 STEP -2:FDR 2=5a TOD 34 STEF -1:S0UND 1,2-18,H:NEXT Z:NEAT H:50 5, m 
| dad EnsuR 3540 5 
| 41a IF DIS=2 THEN saan 


424 GOTT Sana ig 
| 4sa REM FEHLSTART JH ? 0 
e° ' 455 FOR Wei TO 4aB:IF STICKC@)CHS THEN 3300 Le) 
| 


4öA NEXT H:RETURN 


sa REM PRIHT > = 
sa? PESTORE SIA:FOR I=1 TN 14:READ A:POKE 33319+1,A:NEKT I | BR 
sad PESTORE S12:FOR I=1 TO 19:READ A:POKE 33356+1.A:NEXT I:RETURN 


si DATA 175: 177.169, 182,165, 178.128, 179,163; 168, 173: 169, 164, 180 '@3 | 
‚ 51? DATA 176,178;175, 1768, 161, 167: 161,174. 164, 161. 129, 179, 175. 166. 189,183, 161, 178 | =: 
u ‚165 © 58 


' 2AaAA PEM STADINN 

| Saal FOR 1=34A49 TN 3417B:POKE 1,1:NEXT I | | Het 

m! ?2aa2 POKE 341865, 16:POKE 34194,17:F0OKE 34195.16:POKE 34283, 18:POKE 34284. 16: POKE der 
2421?,19:POKE 34213. 16 ni 
SaAd PNIKE 234771 .,20:POKE 34272,16:POKE 34?398,21:POKE 24231,165:POKE 34239,22:POKE | 
24240 ,16 

| ' aAE PNKE 34?48,?23:POKE 34749, 16:POKE 34257 ,24:POKE 34258,16:POKE 34266,25:POKE 

| ' 24267,15:PikE 34775,17 

=, 2AAB POKE 34276, 16:POKE 34277.16 

| ana Ab="Stopuhr - 99.06 Sekunden" :AbD=34588 :GOSUB 30988 

® ! >sati FÜR 1=33154 TO 33259: P0OKE I,11:NEXT I:FOR I=s3341a TO 33515:POKE IT, 12:NEXT To 

5. :PAKE 33153;.26:POKE 33499.27 | 

E ai? FOR 1=32939 TO 33120 STEP 2:A=1NTCRNDERI+E2,5I:POKE 1.A+r64+128:POKE I+128,A ı , 

ve -2A: NEST 1 re. After 

| 2A>A AS=SCHREK 24 3: ADD=32647:G0SUB Baaa: As=" Be" ADD=3264 ou 3aaBB: Ah="%st 

| art2." :ADD=32775:5nSlla Fanan | 

5 2AP2 Adeeieie y ADDE37IA GOLA FRBAA Age" KT: ADD=33932 1 G05UB 30008 | 

| >32 As=rHPper 241: A0h=32738:G0SUR aaa: As='" 44h" ADD=32733:G0OSUB 38908 As="kzie 

=. TE Anbe3rRse Os aaa | 

| Sad Ase" tee y ADd=37994eOuB aaa: Ag=" + N ADD=33173:G0OSUB FAAaaı 

Sad Ate" atari daR RP SPRIHTER?TR4 R written bu OLIVER SCHMIDT # cofyrisht „ 1934 ° 

Hi ku PENPAGANDA SOFTURRE " 

| 44 ADD=33237 : G0SUR Sanan | 

im! Pads Ake"atari Jam": Abb=33379:G0SUB Faada:GOSsuUb Sad | 

bie SASA Ak=lHRSC 343: ADderrAsA: GO Fan At ee" ADD=32A51 GOSLB 3OAAa: Ak=" f' 

FR “endspurte" :AlD=e32178:GOSUB 3BAae BE - . 

| % aaa Allee I ADDEAZFAK  GOSUB BaRAaa:POKE 31973,59:PNKE 31930,59 ig 

| Spsd As=CHRsr 343: AND=FrAAd:GOSUR Andante" ADD=32005:GOSUB 3BRAB: A 

|. $eNSsppINTER?AA.":ADD=37137 

I Spass GMSUR Anand: Abe" eier Vi ADD=Ar2sR: GoslB 3aaaa: POKE 31877,539:FPOKE 318 | 


Emm rn m m nr pr m m Tan en 
Be} w; Pu % u 
Fi Ir I \ un, 
Li ri -- ei wa, ı 
De # 2 ni 
, Di D e: u _— er I im = u ; I 1. 


26? 
2Aad 
FAR 
Ara 
FRA 
9A 
"AA 
aA? 
2RA3 
and 
Ad 
>3AAR 
aaa 
a1 
291? 


PIIKE 33281 ,28:POKE 332#9,29:POKE 33516.3A:POKE 33338. 28 
POKE 33169,.12:POKE 23216413 

PNKE 33251 .12:POKE 33234.13 | 

Ag=" {AA Meter Sprint Finale" (ADD=31750:G0SUR Banana 

A="Tata] - mmaaA Punkte" :ADD=74442:60SUB Faaaa 

PETUPN 

REM SPRITEVORBEREITUNG | 
PHKE 54279, 126: POKE 623. 1:POKE 784. 1?R:POKE 53277:3:POKE 795,54 
PIIKE 53256 ,A:PIKE 53257 ,1 

FR 1=25328 TO 35524:POKE 1,a:NEXT 1:77=2M08: IF DIS=4 THEN 77=3999 
RESTORE ?7:FOR I=35da7 Ta 35417:RERD A:POKE L,A:NEXT I 

DATA A.24,24, 16, 120, 24,98,28. 70,116. 70 

DATA 64,99. 2R.R0, 120. 20.24.28,20.116,70 

RESTORE 3#12:FOR 1=355237 TO 35536:READ A:POKE I,A:NEXT I 

DATA 3.12.48. 192 


|. ı 99,59 WM 


_ . @a2d BETIURN Igel 
“- - alga REM BILGDBATEN LNESCHEN Fe 
2192 FOR I=21744 TO 24740: POKE 1,A:NEKT T:RETURN Be 
22@aA REM DLI > 
“292 PESTNPE 3204: FOR I=1776 TN IFS6:READ A:POKE I,A:NEXT 1 et 
=2Ad DATA 77,169, 774, 141.19,212.141,9,212. 104,84 ® 
=2A6 PNKE 51?,74R:POKE 513,6 "u 
22a POKE 54286, 192: RETURN ee er Deu ee = Su 
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a 


Ar Ta 7 u 5 5 


asan REM FEHLSTART M 
=302 FOR 1=34709 T0 34716:POKE I 


. 33a2 FOR 1=24763 TO 


g="Fehlstart 1" A0he34702 

2304 GOSUB Samen I 

' aaa5 FOP Hei TO 1AAA:HEAT MW | 
ı 336. FEHL=FEHL+L IF FEHL=3 THEN 2480 


 adaa REM DISPUALTFTKATTON 


© 2402 FOR T=a47aa TO 24713: POKE 1. 


=Aaaaa 
a4as IF PEEKES327S3C>E THEN 34R6 


"4a 


FLIH 


+EAA FEM PUHKTBERECHHNIUNG 


350? 7=PEFKL 24824 )E LBBBH+PEEK( 34823 3 LDD+PEEKT 3482 


ssad IF PA THEN Fei 


2595 PLHKT=PLNKT+P 
 asp& FOP I=24795 TO 24 
' 35a8 Ate"Ersebnis - ": 


"Bunkte":AbD=234713 
GoOSUB 3aaak 


3399 


| A&=STREt PLNKT ) 


IF LENERSS=1 THEN Fed 
IF LENEASI=? THEN R=3 
IF LENERASI=3 THEN R=? 
IF LENERSI=4 THEN Rei 


> IF LEHCA8I=5 THEN Feb 
1 ANH=3445h+r:GSla Aaaae 

| IF FFEKES3273H# >65 THEN 3598 
’ PETLPN 

4 REM DISPLAYLISTE 


71A:POKE 1,9:NEXT I 
AND=24697:GOSUR Anaaa ı AS=STRSCP >): ADD 


34712:POKE 1,@:NEXT 1:60T0 318 


2YK1A+PEEK! 34821 I: P=4An-2 


PESTNRE Asa: FOR I=A TO 77:READ A:POkE 1536+1,A:NEXT T:RETURN 


DATA 112.112,112.66.9,124,86. 128, 174,86,8, 125.86, 128, 129,88,08.126,86,128,12 
‚2,127.96,178,177.96.0.12R nn u 2 
re BE, 173,178.06.9,179.36.128,129,86,9,129,96, 128, 139,86,5,131,86,128, 


| Bean DATA 86,1?9,133. 214.9. 134,66, 178, 134,66.8,135.66, 128, 135,69, 8,6 


 ' 27a REM SOLND 
‚ ara? FOR H=15 TO 9 STEP 


IND M,9,9,A: RETURN 


‚dann 
‚ gani 
ı dam? 


, dagaa 


Ammd 
dans 
ARBE 
ana? 
dan 


‚ 4012 


FEM ZEICHENSATZ 
IF FEEKCAGF?B9=755 THEN RETURN 


FOR I=d T0 1823:POKE 372 


CHSET=S3B72G:RESTORE 4019 


RFAD 


A:IF A=-1 THEN RETURN 


FAR Isa TN 7:READ HS:HI=ASCeCHSe 1.1 99-d4B: Tr 
L.N=AancHsl2,239-48: IF 1LN>9 THEN LO=LO-7 
CHSET+AFB+ 1, HIKIE+HLO:NEXT 1:GOTO dad 


POKE 
DATA 
DATA 
DATA 
DATA 
DATA 


ı DATA 


DATA 
DATA 
HATA 


> DATA 
A DATA 
> HATR 


DATA 


2# DATA 


EHI =A 


ei 


> DATA 
4 PATA 


PERD 


{,aa,AaA.aa,aa,FF.FF,B@.An 
2,FF,FF,CA.DF.DA.D7.D4.D5 
=,FF.FF.A@,FF,Aa,FF:AG,FF 
4.FF,FF.A3,.FB.AB.FR,2B. AB 
=,05,05,05,.05;D5;D5.D5;D5 
5.AB. AB. AB. AB, AB. AB, AB. AB 
?.D5,D4.D7.DA.DF,CO,FF FF 
B,FF,Aa,FF.AR,FF,AG,FF.FF 
9,AR:?R.EB- AR: FR,B2,FF.FF 
1A,3%,30,36:30,30,36,36,36 
11,699. ,09A.00,AA,FF,FF.AG 
1?:BA,FF FF .99.90,09.09.00 
13.3%,30.30: 30,36; FF ‚FF. Ad 
14.20.42.99,A1.A1, 99:42:36 
{5, AB, 18.29, 7E.230, 12,00. Aa 
26, AA, da, aa,caa,A9.97 07,06 


A:IF A=-1 THEN PETURN 


did? 
andd 
aaa 
daada 
aasa 
4952 


dad 


dasr 
dase 
dans 
das? 
aasd 
abe 


41a 


Lalals) 
45 


HI>3 


DATA 
BATA 
HATA 
DATA 
DATA 
PATA 
BATA 
DATA 
DATA 
DATA 
DATA 


DATA 


-{:FNR 7=34 TON A STEP -5:S0LUnD 9.219, H:HEXT Z:NEAT H:S0 


+1 ,PEFKeSTA4d+HT I: HNERT I 


THEHN HI=HI-7 


er: Ah Ar7:A7, FA. A, aA, AA, 
22,06, 06,6, A666, B6. 6. 
>93, , AA, am .00,AG,FE,FE.B5 
24,96, FE,FE,Q,Ba.og.00,06 
1 ,19,18,19, a4, 0A, o@,AA,Aa 
2? ,A9, 12, A, TE, a0, 18, Am,on 
S59,.2%,26,30,20,30,36,36, 306 
#9,18,18,18:18,1#: 18-18: 18 
&1 18,18, 20, 30, FF, FF, Aa.o0 


ae Hd « = " 


-i 


REM 2, TEIL 
RESTORE 4518 





EOPR sa TN ?:PEAD E:POKF CHSET+A#3+.J.B:NEXT J:GOTO 4594 
DATA #9,09.R, 240, 249,255.235,.0.08 
DATA 61,8.9,9,0.255, 255.299: 259 


DATA 
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1-1 

A PEM HUERDENLAUF 
POKE 439; | 
FOR 1=31744 TN 31784:POKE T,9:NEXT I 


ä ee — en = z _ r- 
E r De FA FF u We ER on on 
-* ee a ra 


: Pf 1? :POKE 53748, B:D15=2:POKE 34325. DIS-FOKE 
Bo 37a pn FOR 1I=34688 TO 34728:POKE 1,8:NE% 





34232. 1 


a en a 
- N Bamlllig - 

er ee PP m 
Er 3 eat 


=34708:GOSUB 39990: At= 


131 


TL:F 


‚A:NEXT T:SDUND 8,19,2,15:FOR Weil TO eA: NEXT Win 


A:NEXT T:As="Disgualifiziert I: ADb=347AB: GOSUB 


int ana: 
„= u 
hs Br Fee 


EIS 


veltz 


behötiıte 





Per ie 
IF Ks s 
Ei ee RE 


NOMECOMPUTER 63 

















=. Sand As=" {AA Meter Huerden Finale" :ADD=3175R:G0sUB Fonda 
Saas At="Stapıukhr - AA,.AM Sekunden" :ADD=?3458R:GnsllB 3A0A8 
os. seala Gosıa Feas:GOSUB 3000 


KE I,EB:NEXT I 
=, Sad GOTN 220 
‚ KaBR REM BELISERT ING 


“25,172 

sand GOSUR Ss: GnsUR Fan: GOSUB 45an | 
' sa? FOR 1I=34As7 TO 34139 STEF 9:POKE I1.,1:NEXT I:FOR 1=33933 TO 34811 STEF 9:POK 
' E T-@:NEXT I 

6924 FOR I=246B2 TD 24728:POKE 1,8:NEXT I:FOR 1=31744 TO 91784:POKE 1.0:NEXT I 
© ı 6928 A$=" leitsprung Endkampf":ADD=31752:G0SUB 3B8AR 
‚ #29 As="Stopuhr - AA,AA Sekunden" :ADD=34568:G0SUR Saaaa 
' FAat AS=STREC VER ):ADD=34703:GOSUR SARAn:AS=". Versuch" :ADD=34794:GOSUB 39808: POK 
 E 34332,0 


@ , E 1T:61:MEXT 1 ; 
' s1AA POKE 54776,3:POKE 756.120 
- ‚ 518? PIKE 71?2,A:POKE 559.46:POKE 53248,179 


‚, 0TN 8237 

zu #>Ad GOFUR Fr7AR:GOSUB SEAd 

823? VERSVER+HL:TF YVER<>4 THEHN Sana 

&233 FOR 1=s2deE3R TO 34728:POKE T.A:HEXT I:IF BEST=A THEN 3498 

© , 62724 YEPR=1 :Af=e"focte Weite -": ADD=348965 :G0SUB Fandk: Ab=STR$C BEST I): AbD=34710:GOSLU 
) FR 2AAARA 

..., Kr Atd="Meter":AnDb=247168:G0SUR 3aaa 

= 1 8752 P=1MTi BEST#FFSB):PLUHNKET=PLNKT+PF: GOSUR 3851A:BEST=RA:GOTD ’ERR 

ı Fara REM SPEERHLRF 


' 2:019=4 
ZABE GOSUB FEAR: GOSUB FannıPOKE 77,0 


SUB Fadam:PIKE 34776,# 
_ ı Taaa FOR T=@deRe TI 34777: POKE T.A:HEXT 1:A$=STESt VER >: ADD=34703 
”ı 7ad2 GoSlIB Famaa:As=",. Versuch" :ADD=34794:G0sllB 3anda EN 
rasa FOR T=?2d41a4 TNn F412R:POKE I-1:NEKXT I:FOR I=24232 TO 34248:POKE 1.8:NEXT I 
o , zaaa PNKE 717.0:POKE 599,46:PIKE 53248, 12R:POKE 53249,.113 | 

1aA A=llSfi 2985771: S0UND 9,9.9,9:S0UNb 1.9,9,0:1IF PEEK(34335)=1 THEN GOSUB 9108:6 
. , DT0:7212 
=. 11a Gnsua ram: Gans Sana 
‚ ?21? VER=VER+T:TF YER<>A4 THEN FAR 
u reis FOR I=346538 TO 347278:POKE 1,8:NEAT I:IF BEST=A THEN 3448 


ı BE aaa 

© : 722? As="Meter" :Ahb=34715:GOSUR Saaan 

' 224 P=1INTePESTFSA N: PUHNKT=PUNKT+P:GOSUR 3510 
>39 IF PEFKESaPFaN.>E THEN 7238 
Taan REM ENDE 


> ' 1PMSITINN 4.1:7 #E: "SPRINTER’ FE" 
+ 1A PNSITINH 3,3:7 #6: "endersehnis :":PNSITION 4:5:7 #67 PLNKT;" Punkte" 
| >28 ENR A=-1 TN 2:FOR I=4 TO 2 STEP -1:FOR B=id TO 9 STEP -1:50UND 1,1*48,18.B:3 
©. AUND 2. Ttda+l 1A, RB: NEXT B ii 
| Fass MEMT T:NFXT A 
ı aaa IF PEEKCS2?793=6 THEN RUN 
' 73655 G0T0 7358 
‘ aaa PFM AHNFAHNGSEILD ö 
© | saia KPAPFHITS 18: FOKE 798.702: PnKE 712.118 
a. Bae PNSITION d.4:7 #6: "SPRINTER' Ad" 
' aaa FOR I=d To Sn SOUND A,T, 16,10 


© ı 944 IF PEEK(S327@)=6 THEN SOUND 9,8,4.0:RETURN 
‚, gasa NEXT 1:G0TO Sa3a 
“= ' mad REM WEITERERECHNUNG 


San? Led PEEKE SAT I-1 FE IHR+A-PEFK34BL9 ID: Weg: IF Wie THEN W=B 
aaad IF W>BEST THEN BESTeI 


© | ana FOR 1=246aR TO 234727:PNKE T,M:NEXT TiA$="bleite -":ADD=34698:GOSUB 30BB0:A$= | o 


'STPE WI: ADD=347RE COS Zaaae 
. ; Satz Ad="Meter" :Abb=34717:G0SUB Faaad 
” | ana IF PEFKESSPFEN>A THEN 997A 
322 PETURH 
aaa REM LIEBERGETRETEH 
Ba FÜR ichs To Bar2R: PrEE 1,0:NEXT T:Ase"lleberaetreten I":ADD=34700:GOSUB 2 


ı 7*A2 GRAPHITS 18:POKE Fa8,292:POKE 712, 11R:POKE 5324R.R:POKE 53249,A:POKE 799,74 } 


Sara FOR 1=3d4ReE7 TN 34139 STEP 9:POKE 1.61:NEXT 1:FOR 1=33939 TO 24811 STEF 9:PO 


. sarl FOKE 53743,A:P0KE 559,A:POKE 712,118: POKE 77,8:015=3:POKE 34825,b15:POKE 17 


' 6024 FOR I=34186 TO 34277:POKE I,A:NEXT I:POKE 34192,6R:FOR 1=34104 TO 34116:POK | 


Kan Aallspi 27865723: S0UND A,A,.A,0: SOUND 1.,0,4,0:IF PEEK(34835)=1 THEN GOSUB 3108:6G '@® 


an? POKF 53248,0:POKE 53249,0:POKE 559,0:POKE 712,118:POKE 34825.4:POKE 1725.17 | ı 


ee ı 7B2R FOR I=21744 TO 31784:POKE 1,8:HEXT I:Ag=" Speerwurf Endkampf" :ADb=31732:G0 


7229 YER=1:A&="Beste Weite -":ADb=34695:G0SUB SAAaA: As=STRSCBEST I: ADD=34789: GOSU | 
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IF PEEKt 1624 3=173 THEN RETURN 
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‘Wer hat Angst _ 
vorm bösen Wolf? 


für ZX-Spectrum 16 +48 K 


| In diesem Spiel geht es um böse Wölfe, die in bewährter Walt- 
Disney-Manier die Schweinchen fangen wollen. Dazu haben sie 
einen nicht ganz ungefährlichen Weg vor sich, denn sie müssen, an 
Luftballons hängend, in eine Schlucht springen, 
Sie (in der Rolle des Schweinchens) haben nun die Aufgabe, die 
Wölfe mit Pfeil und Bogen abzuwehren. 
Alle Wölfe, die den Angriff des Schweinchens heil überstehen, 
klettern dann die Leiter zum Schweinchenbau hoch und versuchen 
von dort, das im Aufzug sitzende Schweinchen zu fressen. Nach 
einer bestimmten Zeit bekommen die Wölfe Verstärkung. 


Eingabe: Tippen Sie erst Teil 2 ein und SAVEn Sie diesen mil 
„Pooyan“ Linie 8000 ab. Anschließend Teil I eingeben und starten. 
Jetzt werden die UDGs automatisch erzeugt und hinter Poyyan auf 
der Kassette abgespeichert. 
Versuchen Sie, 

möglichst lange durchzuhalten! 
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. 18 REM UDG’& 
' 15 REM Eu 
28 FOR nellSR "a" TO USR "u"+7ı READ a: POKE n,a: NEXT n | 
. 38 DATA 7,3168, 121, 119,115, 127,69, 224,248, 252.,254,254,254,254,252 
40 DATA 6331,15, 15,7,1,1,1,252, 248,240, 240,224, 128,8, Pu 
' #4 DATH 145,88, 127,249, 255, 255) 126,28, 139,2, 193, 249,249, 129,241, 1 
. 60 DATA 28,59, 93, 94, 222, 158, 19,48, 1,207, 253,65, 131 198, 130, 192 
' 7a DATA 9,32, 64,255,64,32,8,9,48,48,48,48,63,48,48,48 
' 80 DATA 12, 12,12, 12,252, 12, 12, 12, 17,35, 35, 182,78, 79, 78,77 
9a DATA 8,12, 252, 222, 222, 255, 15: 247, 77,77,78,71,246,67,64,123 
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| 186 DATA B7 ,247 , 15, 254,30, 220, 241, 253,197 ,47,39,23, P,ı3ı 1,1 = le 
| ® 118 DATA 757,247 ,247 238, 254, 252,B, 8,8, 236, 38, 255,33, 30,252, a at: ! 
| '128 DATA 219, 18,4, 217,146,20, 165, 21,68,66, 165, 153, 153, 165,66, 69 Her 
© :13# DATA B,8,8,8.255.80.,8,8 = En 
| '148 SAVE "ÜDG’E*CODE USR "a",Z1%8 | #5 
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‚Spec 


Eu a 416 


Neueste und bisher beste Version des 
bekannten Spielhallenhits — überwie- 
gend in Maschinensprache — guter 
Sound und tolle Graphik! 


Sie haben fünf Leben: zur Verfügung. 
Ihre Aufgabe ist es, ein Labyrinth leer- 

|  zufressen, ohne sich von einem der vier 
verfolgenden Monster erwischen zu las- 
sen. Haben Sie eine der vier blinkenden 
Krafipillen verspeist, können Sie ihrer- 
seits für kurze Zeit zur Offensive über- 
gehen und durch Fressen eines Mon- 
sters einen Bonus sıchern, 


Mr. Pacman kann über Tastatur mit 
den Cursortasten oder über Kempston- 
Joystick gespielt werden. Dem Spiel- 










K! 


















rum 


vergnügen steht also außer dem Eintip- 

pen nichts mehr im Wege. 

Für Geräte mit I6K-Speicher muß LI- 

STING I in’vier Blöcke zu je dreimal 

26 und einmal 25 DATA-Zeilen geteilt 

werden. 

Folgende Änderungen sind im Listing 

durchzuführen: 

l. Zeile 1000: PRINT “BITTE. 12 
SEKUNDEN WARTEN" ' "520 
BYTES WERDEN EINGELESEN" 

?, Zeile 1010: LET S=30000; die K- 
Schleife muß der Anzahl der 
DATA-Zeilen angepaßt werden 

3. Zeile 105%: SAVE "PACCODE" 
CODE 30000,520 

Ist der erste Block von Zeile 1-26 ın den 

Speicher eingelesen und auf Band gesı- 

chert worden, wird Block zwei von Zei- 





MR. PACMAN 


ZX-Spectrum 






lennummer 27-53 unter den Zeilen- 
nummerm 1-26 eingegeben. Mit Block 
drei und vier werfährt man entspre- 
chend, Nachdem man die Kassette zu- 
rückgespult hat, werden .die vier Ma- 
schinencodeteile durch die Befehlsse- 
quenz LOAD ** CODE 30000: LOAD 
“= CODE W520L0AD 7 CODE 
31040: LOAD ** CODE 31560:5AVE 
“PACCODE" CODE 30000,2060 gela- 
den und zusammen abgespeichert, 

Durch RUN 9995 wird der Maschinen- 
code nachgeladen und MR. PACMAN 
gestartet; Während des Programmver- 
laufs können Sie durch Drücken der 
STOP-Taste ins Basic zurückkehren. 
Mit RUN 9999 wird MR. PACMAN 
endgültig auf Band gesichert und ist 
jetzt jederzeit lade- und spielbereit. 





- P ° PRINT AT 8,18; "MY; AT 7,18; 
„Fine, BRINT AT BES "IEl;AT 6,18; 
'@ | unPar PETE an ARRERERI 
| R apRREeNT AT ABA RT 18,4 | 
I. I  -" er | 
K f hulıpe: F=t";Ar is, 
| en st Ehaimegte Ze AB" mt isıi (En 
Fa . Ai man ,g' E02 2m. PET | 
’o NEXT "u" AT i.2E; m"; AT 190,19 #7 
je AT 2,19," ae: 8 DOHIZEE USR S6828: STOP enge 
| 1“) ers Fi, # sag RR Kal sr TO JSR "p"=4 et. 
IS: da lt . Eh F h POKE K;8 Bein 
Tag BRINT AT m, RT ir 238 BAra 68,126 ‚SB .566. 488 ‚36 u 
re ‚im6, 13 
io FOR K=8.T0 17 THEN NEXT 418 DATA SO,128 @40,Buo,Bua,2u0 En 
ise PRINT AT Nar 1"; Kaas; el ae A 58,185;91,185,185;91,188 Bert 
| 168 PER KEs ‚tg id: Zr K>7 AND K „aag,DATA 8,56, 108 ,0W1,Bu8,288,1 = 
„ı8e PRINT RA AT K,2:"ll"ıiAatT K,28; ' u “4d DATA S0,1268,255,255,231, 195 ®®@ 
ur 'ı78 PRINT i | "Lab DATA 185,809, 199,258 ,205,.8 = 55 
| ler a s,=219,219 ah | Er 
| ‚ıao” 02e 076 198, 1965;195,195,195,19 Si 
| kat {.NE& ee Nas Kur u „4? 6ATA au8,265,8,0,0,0,25%,28 er 
LEE | er 58 DATA 196,131,090,7,7,81;:265,2 h% 
| RINT- AT Jh =, "ll [= Er | Eu Ei = 
| { Le Blue 4 se ga 290 Di a: a00,209,97, BALEE LEN, E 
| MAT ir 8; ——t ‚Ar Er ne LE 198,193,1982 ‚BzäA,Bad,d4 
A Kr: BLruTET Aush „bas bATA 205 ,255,0,08,0,0,195,1#% 
| ge Har 10,10; „590 DATA 195,195,;9,0,9,9,258,25 
“ At 8. RT 7 id RETURN 
40 1 Ta ara 1; AT SER BEEBE nanns: Lorb "PACCODE" 
EN 1 AT »333 SAVE "HR PAGHAN" LINE 5958: 
| Ä IMT Wal ll. „SAYE "PASCODE"CODE 08000, 206 
| Ar FM Ar 8,12: "FW; AT 7,18; De 
| ee enge sen ar aaa EEE 
| i DATA 1,100,0,237,67,62,125,1,0,0,237,57,560,125,237,687,64,125,62,5,1 
| 442 
| > DATA 50,66,125,1,152,58,237,67,76,125,52,5,50,141,92,62,0,205,1,22, 
le 1597 
| 3 DATA 1,0,1, ‚205, 71,121,17,180,123,1,31,0,205,60,32,1,14,1,205,71,134 
vom /s0L1 1985 HOMECoMPUTER #9 
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4 DATA 121,237, 75,62,125, 205,27 ,,26,52,2, 205, 1,22, 205,43, 122, 205,171,1 
21,17,2054 

5 DATA 236,123,205,189,122,58,9, 972,254 ,226 ‚200 ,237,75,67,125,219,31,2 
54,2,40,2763 
>1,15S51 

7 DATA 52,147 ,24,55,217,31,254,1,40,8,52, 239,219, ,254 ,230 ,4,32,18,52,3 
1,2001 

8 DATA 185,40,5,12,62,146,24,42,14,0,62,146,24,36,219,31,254,4,40,8,1 
334 

7 DATA 52,257,217,254,230,168,32,59,4,62,147,24,17,217,31,254,B,40,8,82 
„1735 

10 DATA 239,219,254,230,3,32,113,5,52,148, 245,205, 25,121 ,254,40,40,37, 
205,45,2327 


11 DATA 121,254,49,40,30,205,83,121,62,0,50,143,92,197 ,237,75,67,125,2 


05,71,2227 

12 DATA 121,52,49,215,193,241 ,237,67,67,125,50,69,125,24,5,241 ,237,75, 
67 ,125,2395 

13 DATA 205,71,121,62,6,50,143,92,58,569,125,215,197 ,237 ,75,64,125,33,7 
8,1,2027 

14 DATA 55,63,237,66,193,49,33,17,186,124,205,189,122,1,0,0,237,67,64, 
125,2032 


15 DATA 205,43,122,205,171,121,42,76,125,1,232,3,237,66,34,76,125,195, 


153,117 ,2329 


1i& DATA 42,78,125,175,45,1898,32,,252,59,70,125,198,128,50,70,125,5B8, 71, 


125,254 ,2265 

17 DATA 0,40,8,51,50,71,125,62,48,24,2,652,56,50,190,118,50,213,11B,22, 
1370 

18 DATA 0,221,33,160,125,221,126,20,254,0,40,7,61,221,119,20,195,121,1 
19,197,2260 

19 DATA 58,70,125,254,128,218,13,119 ,221,126,24,254,0,40,7,61,221,119, 
24,195,2277 

20 DATA 13,119,175,221,119,16,121,2721,190,0,40,17.,221,70,4,221,78,0,56 
‚3,1905 

21 DATA 12,24,1,13,205,117,122,193,197,120,221,190,4,40,15,221,70,4,22 
1,78,2068 i 

22 DATA 0,56,3,4,24,1,5,205,117,122,221,126,154,254,0,32,40,221,126,0,1 
573 

23 DATA 195,32,6,221,126,4,1894,40,28,221,70,4,221,78,0,12,205,117,122, 
48,1924 

24 DATA 5,13,13,205,117,122,4,205,117,122,48,5,5,5,205,117,122,221,126 
‚24.1801 

25 DATA 254,0,32,55,58,71,125,254,0,40,49,221,70,4,221,79,0,62,3,50,1& 
48 

26 DATA 143,92,58,71,125,254,20,48,10,203,79,40,4,122,199,4,50,143,72, 
205,1963 

27 DATA 71,121,62,150,215,193,52,6,50,143,92,205,71,121,598,69,125,215, 
24,33,2086 

28 DATA 193,205,71,121,62,5,50,143,92,58,69,125,215,197,221,70,4,221,7 
8,0,2201 


27 DATA 122,198,12,50,1953,72,205,71,121,682,150,215,193,221,126,0,185,3 


2,6,221,2425 
30 DATA 126,4,184,40,49,20,221,35,62,4,186,194,137,118,205,4,123,175,2 
05,1,2093 


31 DATA 22,1,31,0,205,71,121,237,75,72,125,10,254,0,32,4,1,239,124,10, 


1554 


32 DATA 215,3,237,67,72,125,62,2,205,1,22,195,1335,117,221 ,126,24,254,0' 


‚22.2113 


33 DATA 8,58,71,125,254,0,194,61,120,221 ‚229,197 ,205,85,123,62,15,50,1 


41,92,2311 
34 DATA &2,0,205,1,22,1,5,1,205,71,121,1,0,0,33,66,125,53,78,205,1255 
35 DATA 27,26,195,126,259,0,202,2498,120,197,17,211,123,205,189,122,193 
‚221,225,221,3120 


36 DATA 34,88,152,221,126,12,254,144,32,13,205,130,121,62,49,221,119,1 


2,682,0,2057 


37 DATA 221,119,8,221,124,8,254,6,32,5,62,0,221,119,8,22,0,221,33,1&0, 


1846 
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| >B DATA 125,221,78,0,221,70,4,205,71,121,221,126,8,50,143,92,221,126,1 
| 2,215,2330 | 
"39 DATA 20,221,35,62,4,186,32,229,205,171,121,1,239,124,237,67,72,125, 


Ze a SE SER Tem: mu  ——— 
4 ei vs 


195,133,2479 


40 DATA 
8,1,2110 

41 DATA 

42 DATA 
2,1776 

43 DATA 
‚„203,1860 

44 DATA 
0,1625 

45 DATA 
‚205 ,2023 

46 DATA 


1175221 ,126,12,254,49,40,5,213,205,1350,121,209,175,186,32,5,1, 


24,21 ,60,196,32,5,1,23,1,24,12,60,186,32,5,1,5,16,24,5, 721 
1 .26,16,221,113,0,221,112,4,205,25,121,254,5,32,10,221,119,8,6 


144 ,221,119,12,24,10,62,0,221,119,8,52,49,221,119,12,58,71,125 | 
63,221 ,119,24,1,14,10,205,71,121,52,161,50,143,72,58,77,125,6, 
79 ,205,27,26,62,32,215,62,66,215,62,80,215,205,119,123,1,14,10 


71,121,62,40,50,143,972,62,143,215,62,143,215,62,143,215,62,145 


„215,175,2434 


47 DATA 
3,1701 

48 DATA 
6,1753 

49 DATA 


3,237 ,2264 


50 DATA 
5,55,1867 

51 DATA 
93,1933 

s2 DATA 


205,1,22,42,60,125,58,79,125,22,0,95,55,63,237,90,34,60,125,20 2 


39 ,50,79,125,1,27,1,205,71,121,62,7,50,143,92,229,193,205,27,2 © 


62,2,205,1,22,195,133,117,221,225,42,62,125,237,75,60,125,55,& 


66 ,48,9,237,67,62,125,17,48,124,24,3,17,130,124,205,189,122,19 
117,197 ,213,33,0,88,175,184,40,6,17,32,0,25,16,253,9,126,209,1 


201 ,197,213,120,230,24,198,64,103,105,120,5,5,205,39,16,252,13 


3,111,17,2357 


33 DATA 


0,2,25,126,209,193,201,221,229,62,22,215,120,215,121,215,221,2 


25,201,197,3020 


54 DATA 
=,62,1905 
55 DATA 


54 DATA 
„75,2374 
57 DATA 
„62,1994 
sg DATA 


4,2097 


oe Te u u 


@ı: 
i 


1 
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59 DATA 
‚1668 

&0 DATA 
1764 

61 DATA 
21,1924 

&2 DATA 


205,45,121,254,0,32,28,205,25,121,254,133,32,10,62,70,50,71,12 

1 ,50,79,125,205,130,121,17,1,0,33,194 ,3,24,6,17,4,0,33,252,129 
0,205,181,3,193,201,221,229,175,205,1,22,1,27,1,205,71,121,237 
60,125,3,237,67,60,125,205,27,26,237,75,64,125,3,237,67,64,125 , _ 
2,205,1,22,221,225,201,221,33,160,125,1,8,1,221,113,0,221,112, 
14,23,221,113,1,221,112,5,1,5,16,221,113,2,221,112,6,14,26,221 
113,3,221,112,7,6,4,62,16,144,50,145,92,197,221,78,0,221,70,4, 
205 ,25,121,221,119,8,205,45,121,254,0,32,4,62,144,24,2,62,49,2 | 


119,12,205,71,121,62,150,215,62,10,221,119,20,175,221,117,24,2 


21 ,35,193,2375 


55 DATA 
‚50,1756 
64 DATA 


® ı 205,2121 


65 DATA 

„32,1767 
66 DATA 

1,1835 
67 DATA 


4,215,2120 


&8 DATA 


1 
„45,121,2367 | 


57 DATA 
21.2255 
70 DATA 


3,221,2398 


71 DATA 
J3,63,2157 


FE 
nenne in un RZ 
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12,201 ,62,14,50,143,92,1,15,12,237,67,67,125,205,71,121,62,145 
69,125,215,175,50,71,125,1,239,124,237,67,72,125,201,6,0,14,0, | _ | 
25,121 ,254,40,40,11,62,5,50,143,92,205,71,121,62,144,215,12,82, 7 
169.32.232,4,62,21,168,32,224,62,133,50,143,92,1,8,5,205,71,12 | 
62 ,144,215,14,23,205,71,121,62,144,215,1,7,18,205,71,121,62,14 w 
14,24 ,205,71,121,62,144,215,201,205,25,121,254,40,40,9,245,205 | o = 
254 ,153,32,3,241,55,201,254,0,32,4,62,144,24,2,62,49,245,197,2| 9 
70,4,221,78,0,205,71,121,221,126,8,50,143,92,221,126,12,215,17 , & = 


112,4,221,113,0,241,221,119,12,241,221,119,8,62,1,221,119,16,5 
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72 DATA 201,62,0,213,205,1,22,205,155,123,52,0,205,1,22, 209,229 ,197,24 
5,213,2570 | 

73 DATA 225,1,250,124,,237,67,74,125,205,4,123,62,7,50,145,92,1,31,0,20 
Salz 

74 DATA 71,121,1264,254,0,32,3,213,225,1264,215,35,229,205,32,123,225,62 
‚„127,219,2643 

73 DATA 254,250,1,52,219,205,155,123,241,193, 225,201 ,229,213,17,192,80 
‚33,1935,80,3116 

76 DATA 175,1,31,0,213,229,237,178,225,209,60,20,36,254,8,32,240 ,209,2 
25,201,2781 . 
1,205,24977 


7B 


DATA 


„248 ,27289 


Fir, 


DATA 


3,33,2501 


80 


„Al, 


31 


DATA 
2382 
DATA 


40,45,62,12,205,40,45,239,5,56,221,126,0,205,40,45, 221,229 ,205 
3,221 ,225,221,35,221,35,221,34,74,125,209 ,201 ,229,213,197,1,0, 
20,3,17,1,0,229,213,197,205,181,3,193, 209, 225,43,175,11,194,32 


185,52,258,193,209,225, 201,221 ,229,197 ,213, 229 ,33,30,0,17,1,0, 


229,213,2895 


82 DATA 205,181,3,209,225,35,35,35,229,1,144,1,237,66,225,56,237,225,2 


09,193,2751 
83 DATA 221,225,201,1,32,0,13,205,71,121,62,7,50,143,92,62,32,215,175, 
177,2105 


94 


DATA 


105,1552 


85 


DATA 


0,1176 


B& 
99 


99 
13 
100 
101 
102 
103 
1000 
1010 


1620 
1050 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


FRINT 


32,240,62,2,205,1,22,201,75,105,118,101,58,53,32,32,32,72,105, 
104,58,32,32,32,32,32,32,32,83,99,111,114,101,58,48,32,32,32,8 
892,69,93,93,32,83,80,65,67,69,32,84,79,32,67,79,798,84,73,78,13 
85,69,32,0,77,82,32,80,65,67,77,65,798,32,67,79,80,89,82,73,131 
71,72,84,32,49,57,56,52,32,66,99,32,82,65,75,70,32,83,67,72,12 
69,78,75,69,32,80,82,69,83,93,32,83,80,65,67,69,32,84,79,32,13 
83,94,45,82,84,32,71,65,77,69,32,0,67,79,78,71,82,65,84,85,135 
76,65,84,73,79,78,83,32,89,79,85,39 ,84,59,32,65,82,79,67,75,14 
69,79,32,84,72,69,32,72,73,71,72,83,67,79,82,69,32,80,92,69,13 
83,83,32,83,80,65,67,69,32,84,79,32,66,85,73,76,68,32,85,80,13 
32,65,78,32,78,69,87,32,71,65,77,69,32,0,83,79,82,82,89,32,123 


78,79,32,72,73,71,72,83,67,79,82,69,32,80,82,69,83,83,32,93,14 


90 ,65,67,69,32,84,79,32,64,805,73,76,58,32,95,90,32,55,78,32,12 


78,69,97,32,71,65,77,69,32,0,89,79,985,32,72,65,86,69,32,77,126 
65,78,65,71,69,68,32,65,32,83,67,92,69,59,798,32,71,79,79,68,13 
32,76,85,67,75,32,65,84,32,94 ,72,69,32,78,69,98,84,32,79,.78,13 


69,32,0,77,82,32,80,65,67,77,65,78,32,0,241,6,1,7,1,774 
2542414651, 7415945,2,1,6, 147,1, 9, 2,6, 2,83 
2,2,6,2,4,68,6,14,4414,2,3,2,14652,9,1,9,1, 70 
7,5,14,1,11,1,9,2,6,2,4,1,2,1,.4,2,2,5,0,0,79 

"BITTE 55 SEKUNDEN WARTEN" "2060 BYTES WERDEN EINGELESEN" 


LET 5=50000: FOR K=1 TOD 103: LET: E=0: FOR J=1 TO 20: READ A: FORE 5 
‚A: LET E=E+A: LET 5=S5+1: NEXT J 
READ A: IF As>E THEN CLS : FRINT "FEHLER IN ZEILE ":K: STOP 


NEXT K 
1040 PRINT 


"MACHINENECOBETEIL FERTIG ZUM AB- SPEICHERN" 


1050 SAVE "PACCODE"CODE 50000,2050: STOP 


32 HOMECOMPUTER 
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Bestellgutschein 

Ja, ich möchte ins Computerleben einsteigen und bestelle deshalb: 

U Jahresabonnement Kombi: HC, Computronic und CPU (24 Hefte) 100,- DM 
DO Jahresabonnement HC und Computronie (12 Hefte) 55,- DM 

OD) Jahresabonnement CPU (12 Hefte) 55.- DM 


MameWorname 


Straße. Mr. PLZ, Ort 


Ich wünsche folgende Zahlungsweise: 


71 Bargeldlos durch Bankeinzug — 
Hankleierahl 


Geldinsiitut Kanıc-Kr. 

U] gegen Rechnung | 
Datum, Linierschrift 

Abonnements-Kündigungen: 

6 Wochen vor Ablauf’ des Jahresabonnements. 


Di 


Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim Verlag widerrufen! 
Zur Wahrung der Frist genügı die rechtzeitige Absendung. 


Daum, Unterschrift 
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Der CPC-464 ist wie geschaffen für gute 
Graphik-Adventure, er hat einen gro- 
ßen Umfang an Memory-Platz und 
gute Graphik-Eigenschaften. Die Gra- 
phik allein macht aber noch kein gutes 
Spiel, richtige Adventure-Spieler benö- 
tigen einen ausführlichen Text, der ihre 
Phantasıe anregt. 

In FOREST AT WORLD's END hat 
man alles, die Graphik sorgt für die 
richtige Atmosphäre, der Text für die 
Spannung. Und man wird schon beim 
Einladen auf die Folter gespannt, wie 
lange es denn wohl dauert. Gute Gra- 
phik benötigt einen umfangreichen 
Speicherplatz. 

Nicht alle Ort im Adventure haben ein 
Bild, aber dort, wo es erscheint, ist es 
großartig. Die Bilder wurden von Terry 





CPC-464 SOFTWARE 


im Test 


FOREST AT WORLD’s END 


Greer entworfen, ein Meister in der 
Computer-Graphik. Man darf sich die- 
sen Namen merken, er hat wirklich alle 
Möglichkeiten des CPC' 464 ausgenutzt. 
Die Bilder werden vom Computer ge- 
speichert und bei Bedarfschnell aufden 
Bildschirm gezeichnet. 

Die meisten modernen Adventure neh- 
men auch lange Sätze an. Die Routine, 
mit der das geschieht, wird PARSER 
genannt. Wie gut der PARSER ist, be- 
stimmt die Spielqualität und den Spiel- 
witz. FORESTAT WORLD's END hat 
noch keinen ausgereiften PARSER und 
ist daher in seinem Wortschatz be- 
schränkt. Das führt manchmal zu lan- 
ger Suche nach dem passenden Wort, 
was beı vielen Ädventure-Spielern zum 
Reiz des Spiels gehört. 


‚Das Kommando „to get into ihe boat“ 


ist „climb into boat“, „Enter boat“, „go 
boat“, „Jump into boat“ usw. werden 
nicht angenommen. Hier verbraucht 
man viel Zeit, um herauszufinden, wel- 
che Kommandos das Programm an- 
nimmt. Ein großer Wortschatz benötigt 
einen großen Platz an MEMORY und 
um bei der Wahrheit zu bleiben, FO- 
REST AT WORLD" END hat eine 
Vielzahl gespeichert. 

Es ist kein schwieriges Adventure, nicht 
von der Art, die Anfänger aufgeben las- 
sen. Ein ideales Adventure für den An- 
fang, aber auch für Könner nicht zu 
verachten. 

In Fachgeschäften oder Versandhandel 
für DM 24,95 erhältlich. Hersteller: IN- 
TERCEPTOR SOFTWARE. 


Atarıs neue Superrechner 


Aufder CES in Las Vegas stellte Atari 
erstmals seine neue Rechnergeneration 
dem Publikum und der Fachpresse vor. 
Auf der HannoverMesse wurden die 
Geräte dem staunenden Publikum prä- 
sentiert: 


Das neue Flaggschiff von Jack Tramiel 
ıst der Atarı ST 520, Dieser neue Com- 
puter ist mit einer 8 MHZ - 68000 CPU 
und 512 kByte RAM ausgerüstet. Auf- 
erund des Graphic Enviroment Mana- 
gers GEM von Digital Research, einem 


Graphik-„Betriebssystem“, bietet der: 


ST 520 nahezu die gleiche Benutzer- 
oberfläche wie Apples Macintosh, 
GEM unterstützt Icons, Windows und 
die Atari-Mouse, Aufgrund dieser Mac- 
Ähnlichkeit trägt der neue Rechner be- 
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reits den Spitznamen Jackintosh. Au- 
Ber dem GEM ist in den 192 kByte 
ROM das Betriebssystem TOS (Tra- 
mıel Operating System) untergebracht, 
das eine modifizierte CP/M 68k-Ver- 
sion i5t. 


Wie auf der Messe zu erfahren war, 
wird der ST 520 ab Juni/Juli 85 mit 
Basic und Logo im ROM ausgeliefert, 
andere Sprachen (wie z. B. C und Forth) 
werden jedoch auch erhältlich sein. Das 
beste ist jedoch der Preis des Rechners. 
Zusammen mit einer ebenfalls neu ent- 
wickelten 500 kByte Floppy (Format 
3% Zoll}, einem monochromen Moni- 
tor und der Maus wird das Kompletisy- 
stem nach Angaben von Atarı-Mitar- 
beitern etwa 2990 DM kosten. Zum 


Sensationspreis von nur ca. 1200 DM 
soll eine 10 MB-Festplatte erhältlich 
sein. 

Die auf der CES ebenfalls angekündig- 
ten kleineren Modelle der ST-Serie (ST 
130 und 260} werden nach Angaben 
von Atari-Mitarbeitern zumindes vor- 
erst nicht in Europa angeboten. 
Zusammen mit dem ST 520 stellte Ata- 
ri auch den Nachfolger des 800 XL, den 
130 KE vor. Das neue Gerät hat einen 
RAM-Speicher von 128 kByte, eine 
6502-CPU und soll vollkompatibel zu 
seinem Vorgänger sein. Auch seine 
kleineren Brüder, die 64 kBvte-Modelle 
65 ME, 65 XEP und 65 XEM wurden 
nicht mehr vorgestellt und werden wohl 
auch (zumindest vorerst) nicht produ- 
zierl. 
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Steuern Sie Ihr Flugzeug 
sicher durch die Höhle! 


Auf einem Erkundungsflug durch unbekanntes Gebiet sind 
Sie versehentlich durch ein riesiges Tor in eine Höhle gera- 
ten. auf deren Boden eine Unmenge von Diamanten liegt, 
Versuchen Sie, so viele wie möglich davon aufzusammeln, 
indem Sie diese mit Ihrem Flugzeug überfliegen. Berühren 
Sie dabei aber nicht die Felsen, denn dieses hätte die sofortige 
Zerstörung Ihres Flugzeugs zur Folge. Lenken Sie also Ihr 
Flugzeug vorsichtig an den Felsen vorbei. Dies ist aber gar 
nicht so einfach, denn die anfangs so große Höhle wird 
immer enger, je tiefer Sie kommen. Es stehen Ihnen drei 
Flugzeuge zur Verfügung. Wenn Sie den High-Score über- 
schritten haben, können Sie sich in die Bestenliste eintragen. 


Hinweise zum Eingeben: 
Tragen Sie in der ersten REM-Zeile mindestens 165 Zeichen 


ein und achten Sie darauf, daß Sie den Maschinencode ın 
Zeile 8005 und 8007 richtig eingeben. 


Gestartet wird das Programm mit dem Befehl 
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578 PRINT ‚,‚"SIE FLIEGEN MIT IH 
REM FLUGZEUG DURCH EINE UNTERIR 
DISCHE HOEHLE.RUF IHREM WES LIEG 
T EINE UNHENGEUDN DEAHR 


Ä | SDOU 
ELE BIAMAFTEN WIE HBEGLICH AuUrFZUL 
HzZT IHRE 


SAHMHECH, INDEM SIE DIESE I 

H FLUGZEUG UEBERFLIEGEN.FUER 

JEbEM DIAHMAHN- TEN ERHALTEN SIE 1 

u PLN = DOCH SEIEN SIE Wo 
EHTIG,DENN „JEDE BERUEHRUFG DE 

B: Bern AND BorT =IE EINES I 
RER LLIG- UGBE.AUSSERDEH ‚ME 
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EINE Paste” 
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587 PRINT Er 18,897 "UAEHLEH STE 


DIE TASTEN DENENSIE MR FLUR 
ZEUG ST N WOLLEN. 
599 ar +#, "STEIGEH ee"; 


ı INPUT 
518 IF LEN Os+>1 THEN GOTO 608 
515 PRINT 0 
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5410 IF LEN Usc)i1 OR Us=0s THEN 


FRINT Us 
5653 IF a ee THEH GOTO 55% 


1905 REM ###+#+=33+3+#+4+ 
1918 REH HAUFTTEIL 
RHREH +3=3#+24+++%# 


Nail To 
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238 23 
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ae PRINT AT F,15; 
+13 LET F=SP#+i INKEY&$= usi -1INKEr& 


O4} 
gr: PRINT FT PF,16; 
1420 LET Tausf 165643 


j4a® Pore E10, 


# 





St: #54 # as 
F-a10 BEH BINKTERLSDERTUNG 
AG2a. REM FrarZTRrrH rare 


BEazda FOR N=B TO 
nee PRIHT AT 2,8; ' 
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Tips & Tricks 


DieDRA re es für den 
ZX-Spectrum 

Der folgende Befehl ermöglicht allen ZX- Spectrum- -Usern, bei 

der Anwendung von Grafikprogrammen eine direkte Linie zu 

den im Befehl angegebenen Koordinaten zu ziehen. 

40 DRAW x-PEEk 23677, y-PEEK 23678 

Wie sicherlich jeder Spectrum-User weiß, verfügt dieser Com- 

puter-Typ nur über einen DRAW-relativ-Befehl, bei dem aus- 

gehend vom letzten geplotteten Punkt eine Linie zu der Koordı- 

nate gezeichnet wird, die im DRAW-Befehl als Versatz angege- 

ben ist. 

Beispiel: 

PLOT 10,10: DRAW 100,20 

Bei der Ausführung dieses Befehls wird eine Linie von den 

Koordinaten 10,10 nach 110.30 gezeichnet. 

Durch den DRAW-absolut-Befehl haben wir jedoch eine andere 

Funktion. 

PLOT 10,10: DRAW 100-PEEK 23677, 20-PEEK 23678 

Jetzt wird die Linie von den Koordinaten 10,10 nach 100,20 

gerogen, Dieser Befehl ermöglicht eine leichtere Erstellung von 

Grafiken durch direkte Adressierung der Koordinaten. 
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GHOSTS’ EGGS 


VC-20-Grundversion 


Stehlen Sie den Geistern die Eier aus dem Nest! 


Es ist Ihre Aufgabe, Eier einzusam- 
meln, oline von den Geistern gefressen 
zu werden. Dabei können Sie Trampo- 
lins, Leitern, Beamplatten, Aufzüge, 
Superpillen und Bremsfedern benut- 


zen. 

Achten Sie auf die Mauer, sie könnte 
unter Ihnen zerbröckeln, und auf die 
Rollen, die sich drehen. Wenn Sie her- 
unterfallen, kann Sie nur das Trampo- 
lin oder die Bremsfeder retten. 

Die Steuerung erfolgt mit dem Joystick, 


PÜKE585.26:CLR 


gesprungen wird mit der „Fire”-Taste. 

— Fahren Sie über die gewünschte Stelle 
auf dem Bildschirm: 

- Setzen" Sie das Zeichen 
Drücken von Space”, 

— Mit „F&" können Sie das konstruierte 
Spielfeld speichern. 

— Mit „F3" können Sie das konstruierte 
Spielfeld laden. 

Ist Ihnen das Spielfeld zu langweilig 

geworden, dann konstruieren Sie doch 

einfach ein neues! 


durch 


Achten Sie aber immer darauf, daß Sie 

die Eier und die Spieler miteinzeich- 

nen, sonst läuft das Programm nıcht. 

— Wenn Sie sich im Menue befinden, 
drücken Sie „F7”, Mit den Cursor- 
Tasten können Sie nun den Cursor 
über den Bildschirm bewegen. 

— Fahren Sie mit dem Cursor über das 
gewünschte Zeichen in der oberen 
Zeile; 

— „Holen" Sie sich das Zeichen, indem 
Sie Space" drücken. 
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' 1 FÜRI=7158T07687 :READA:POKEI,R A:NEXT :FORI=6573T0656:RERDA:FOKEI.H:NEAT 
- + 2 DATRSS,67, 129. 129, 0 EA D= 
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no ! 31 PRINT"MMIT “SPACE’ KOENNENIBBBIE EIN ZEICHEN AUSIBBDER OBEREN REIHE HO-" 5 | 
5.32 PRINT"SLEN.UND MIT “SPACE“ABBIIM UNTEREN BEREICHIBBRLIIEDER ABSETZEN. " FR: 
‚ 33 PRINT"MASIE KOENNEN AUCHBPBBBEINGEGEBENE BILDERMBBBMIT “CLR HOME“ LOESBBISC) | 
HEN. ! li 
34 PRINT'IBINASTASTE" :HALTL9S,15:GETAS ee 
_ ı 35 SYSE73:PRINT"ASMIT °F?” KOMMEN SIEMBBEURUECK INS MENUE. " al: 
”ı 36 PRINT"AMCHTEN SIE DARAUFIBBBDASS SIE IMMER EIERIERUND SPIELER EIN-" ie 
3.37 PRINT" BREICHNEN,. DH DAS FRO-IBIGRAMM SCHST NICHTIBBRBRICHTIG ARBEITET." he 
= | 38 FRINT"MISSIE KOENNEN ABER DASIBBPIEL JEDERZEIT DURCHKDRUECKEN EINER TASTE" Oo 
4.838 PRINT"IMUF DER IASTATURIMRBBBIUNTERBRECHEN. " Kann 
3.48 PRINTBENd ASTE" :WALTA3S,15:GETAF | | | Sue 
© ı 41 SYS67a:PRINT"S@SIHD SIE IM MENUE,SOMIKGENNEN SIE IHREIBRBMMBILDER DURCH ’F57 ı @ 
. I AUF" Fee 
u 1 42 PRINT"SAUF KASSETTE SPEICHERNBZW DURCH “F3“ VONIBBBKASSETTE LADEN, " wu 
© 1.43 PRINT"BBIAN ASTE" WAIT198, 15'GETA$ | | | ir 
44 578673: PRINT SRMSWIEDERHÜLEN DER (U) REGELN SPIEL STARTEN En 
= 52" m. BEE 
45 GETAF: IFAs="W"THENFOKE19S. 1: POKESS1,7E: RUN = 
1 46 IFASSO"S"GOTO4S ae 
ı® , a7 FÜKES5869, 248: PRINT" EP 1=7748: 607064" :FOKE198, 7: FOKES31,76:POKE632,79 2% 
| 48 POKE633, 65: PÜKE634, 68: POKEESS, 13: POKEESS, 19:POKEEST. 13 | ı 
u; IR 
® - Teil 3: BE 
=! 8 PüKEsS?. 123: POKE36879,8:POKE36878,15:POKEL,B:POKE2,29 Eu 
+1 POKE3EBEI. 240 i 
1.2 PRINT ICE I/FIRE. 22... START" :PRINT"NOBFS. ..»- nenne. LOAD" a 
| O3 PRINTUBES. nenn. SAVE" SPRINTUHBBEET sense „EDIT“ :@ Bu 


en at a ar Page +2 —- 
ur nel at erite eo Bu “=it = 
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4 GETAS:IFLRSC"FORAF> "ER" JANHDGFEERC3TIIPANDEZI PEGOTOA 
=. 5 IFAsC"W'ORAS>"N"THENIDO 
| 6 ONASCCASI-1326C0T0 108, 260, 306,400 


186 


= un no 
Fe 
ni 


I 
ch 


IFFi=58GOT0i1 


 POKE36863, 255: 548768084: FORI=7689T07781 :POKEI,21:NEXT: J=Q: FeP1:1I=21 


PRINT" 85"5, "H"H 
R=8: IFJ>=BTHENIFPEEK(P+22)=21THENIFI<L11ORTPL4THENJ=J+1 : R=22: IFPP8164G0T0152 


; IFABSCJI<STHENIFCPEEK(371373ANDIEI=ÖTHENR=ER-1 
> FÜKE37154.127 


IFABSC JI<3THENIF<PEEK£371SZIANDL2Z8I=8THENR=R+1 
PÜKE37154,255 


IFIKOTHENRER-22: Is J+1 38 


IFJ=OTHENIFPEEK(F+Z22>C>21THENIFCPEEK(37137 3ANDISZI=8THENJ=-2 
IFI<4ANDJI>STHENIFFEEK(F+ZZ2> CZ ORG TPIBANDI<IE THENJ=B 


2 IFJ>STHENIFPEEK(P+22)S>PZ1LORCI>LOANDI<ISIGOTOL1S® 


IFI=3THENIFCPEEKC3FISTIANDEISOTHENR=-227235W- 
IEPEEKCB+ZES=STHENIFCPEEKLS71S7DPNDED-BTHENR=22 


5 IFPEEK{P+22?7=168THENPÜKEF+Z2. 38 
>; IFPEEK(F+Z23=4THENIFRND(CBPS. 160701408 


IFPEEK{P+22)=90RPEEK (P+22)=18THENR=R+13-PEEK(F+22>#2 
IFI=180RI=1396010143 
IFI=1STHENC=S8: I=21 


| IFI>1BANDI<ISTHENONI-1SGOSUB145, 145, 147, 146 


IF I=17THENI=21:$=5+45:FÜRK=254T01275TEP-1 :FOKE3SEB7E.K:NERT 


 IFR<>ATHENFOKE36876 , 2U0+R : FOKES6876,08 
 IFE<>OTHENG=C-1:POKE36875. ZU8+C FOKESSETS, EG 


IFPEEK<(F+44) =1BORPEEK GC P+44 3) =1 9THENS=S+LBB+INTCRNDC1 #100) 
IFPEEK(P+22>=180RPEEK {P+223=19THENS=S+280+1NTCRND< 1? #108) 
GETAF: IFAFC>""GOTO1S2 

POKEP, 1: IFUSRIBP=BGOTO1SS 


3. IFP+R<S1SEANDP+RPFFELTHENF=P+R 


IFF>&163THENISZ 


, I=PEEK(P):PÜKEP,28:G0T0193 | 
3 FÜRK=12710248: PÜKE35877 ı K:NEAT :POKE36877 ,@:POKEP. 1 


P=?FB2+INTERNDE 1)#484 I : IFFEEKCP+22IC>4THEN141 
I=PEEK.(P) : FÜKEP ‚ 26 :FÜRK=246T012685TEP-1 : POKE35377 ,K: NEXT :FOKESSBTY.B: Red: J=B: 


BOTOLL? 


es 

DB ja 
145 
| 


“e ETARREN 
& 
be 
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u. ah 
DEE 


IFC=BTHENISZ > a 
FÜRK=127 10254: POKE3S6876, K: NEXT :POKE38976,8: 1=21:5=$+198:G0T0119 
R=-22: RETURN 

R=22: RETURN 

?=-1: RETURN 

R=1: RETURN 

IFPEEK(P+223=7 THENJ=1-J: 6010113 

IFPEEK(P+22)=STHENJ=8:G0T0 113 0° 

POKEP ,21: PRINT" SPL(226)" SSAME OVER":FORI=1T05988 : NEXT 


3 IFS>HTHENN=S 

+ 5=8:C=eb:60T0l 

>; FÜRI=177T0208: POKE3E878 , 1: NEXT :FORI=280T01268STEP-1 :POKE36876.1:NEXT:'GOTOLGO 
ä INPUT" ZIMRRROCHNANME ";A&:0OPENI,1,8,LEFTSCA$, 16) 


FORI=6656T07161:GET#1,A#:POKEI,. ASCCAS+CHR& CO) >) NEXT: INPUT#1,P1:CLOSEL:GOTDI 
INFUT", AME ";AE:OPENI.1.1.LEFTFIAF, 16) 
FORI=6656T07 161! PRINT#1,CHRSCPEEKCI)D: :NEXT:PRINT#1,P1:CLOSEL:GOTO1 


4 FÜKE36869 255: SYS 7604: Pe/sso+ntz2Ht 


POKEP» 2: FÜRI=8T099:GETA$: IFA$S>""THENSYS76B4 : GOTO485 


; NEXT:SYS760#: FÜURI=BTOI9:GETA$: IFA$S>2" "GOTO4SS 
NEXT: GOTO4GEZ 


IFAs=" a" THENSYSS FE: PRINT" STBABSCHDTERFÖHRILITKLINOTF ORSIT" :SY57586:Pi=d 


 IFA$s="]" THENYer+ 958) :GOTO4HR 
 IFAS=" m" THENT=Y-CHCH22) :GOTUAOR 
 IFAS="Al" THENK=K+ (X<>8) : GOT0480 


IFAS="W"THENA=SR- CH 212) :GOTO4BR 


| IFRte"N"GOT01 


IFAS<>" "THENMBB | 
IFP<7FO2ANDPEEK CPI<>Z1THENZ=PEEK (P) :GOTO4BG 
IFP<TTOZANDFEEK(P)=21 THENZ=31:G0T0490 


} IFZXZ8THENFOKER. 2:60T0418 


IFZ=31THENFÜKEF. 21: GUTO4lE 


; IFZ=2UANDPI=ATHENPI=P :POKEP »Z:POKETFBL, 21: 8787585: As="" :GOTO4BS I 
GÖOTO4BE = 
> IFPi=FTHEHNPI=d:FOKErT7EI. 20 

357586: As="l" :GOTOAES ''g 
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FOX-HUNT 


VC-20 





Ein Grundversionsprogramm 


Gehen Sie mit Ihrem VC-20 
uf Fuchsjagd | 








Nachdem Sie Ihr Leben lang vor dem 
Computer gesessen haben, sind Sie jetzt 
in Rente gegangen und haben ein Jagd- 
revier gepachtet. Sie wollen Ihrem 
Oberforstrat einen Gefallen tun und die 
Anzahl der tollwütigen Füchse auf ein 
Minimum reduzieren. 

Also machen Sie sich eines nachts auf 
den Weg zu Ihrem alten Hochsitz, an 
dem der Zahn der Zeit schon ordentlich | 
genagt hat, und versuchen von dort aus | 
bis Sonnenaufgang so viele Füchse wie 
möglich abzuschießen. Das ıst aber gar 
nicht so einfach, denn die Biester sind 
„fuchsteufelsschnell* im Verstecken. 
Zu allem Unglück versucht auch noch 
ein Biber, Ihren Hochsitz anzuknab- 
bern. 

Das Programm besteht aus zwei Teilen. 
Im ersten Teil werden die neuen Zei- 
chen definiert und das Spiel kurz be- 
schrieben. Der zweite Teil enthält das 
eigentliche Hauptprogramm. 











Kor Cd 
Vorprogramm: WW 
Steuerung: »B 

I GOTOSH — 

1 Be Gewehr nach links = Joystick nach links = 

13 * # Gewehr nach oben = Joystick nach oben et 

= 14 H Bu une LE z Gewehr nach rechts = Joystick nach rechts nr | 
= En DE 3 Se ” H Schuß = Feuerknopf ms 

1 17 * CC) BF FROGSOFT * Biberfalle = Joystick nach unten ii 
- is # - * ı et) 
13 #* LTL. 89 + = 

a 2% * = 
1 & LUTZ BLOMBERG # BER 

22 # » | 2 

! At # Eu ii I vi 
24 % | * 0 
Bi, h 
=6 # * e® 
27 Wk Eu 

' 234 POKES2, 28: PRINT" :P=36873:POKEP. 158 Br 
32 PRINT" Alinielaialmm ü je 

' 38 PRINT"RREISEK +" = 
34 FRINTEEET——— " 
35 POKE645, 18: PRINT"IBBRBITIEITTE WARTEN" :POKES48, 8 west 

33 PÜKESS. 28 ae 

48 DATASI,.65, 188, 124,94, 124, 186, 146 ee, 
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4l DATAS. 4.24, 20,32,28: 179,113 

32 DATAISZ: 85:91. 247,172, 174;, 153, 169 

43 DATALEB: 89: FZı T2: 208, 224,190, 154 

44 DATA15,15,3,3, 255, 199,171, 295, 224, 224,192,.192, 255,199, 171,255 
46 IATAd, 1:31,35 74 74:7,08,128, 192,128, 192,168, 168, 168: REM 
47 DATA, 1,3, 2949, 31,15, ro 

48 DATAZ. 132, 200,176, 240, 224, 224, Ze 

43 DATA3Z, 160, 224, 160, 224 240, 224, 224 

Id DATAB, 24,24, 118, 118, 24, 24, 24 

si DATAiZE. 129,157. 1681, 161,197, 129,126 


IE DATA, 3, 7, 14, 31,564 112, 225, 0, 255. 255, 28,57, 127,296, 198,8, 255, 255, 231,284,152, “ 


63.127 

55 DATA3S. 36. 36: 72, 121: 133. 133: 132,8,0,2,147, 34,36, 40,268 
=6E IfTAs,8,60, 146, 144, 144, 136,65 

Sr DATAG, 15, 196, 254,84, 124,186. 146 

Ss DATA3Z:0. 160, 104, 144, 184,32, 0 

-9 DATAG:8.8:8; 16,40, 84,36 


&d DATAS, 249,249, 249,0: 207 , 207,207 Im 


&1 DATA, 255, 255,156: 206, 163, 243, 249,0, 192, 224,8, 126, 28, 254,255 
63 DRATAB,8, 136, 149, 149, 214, 0,8 

sd DATASFI9 

“1 RKESTORE:I=6 

42 BEADA: LFR=395THENF4 

“3 FOKE?168+1,R: I=1+1:G0T092 

94 CLR:FÜRI=7424107432: POKEI:8:HNEAT 


35 PEINT"TI :POKE36889, 255: POKE36879, 174: PRINT" TRAM 


5 

MIRRIEINIEIFLINININ 10 

Ss PRINT" EIIEEEEEREIN — MEN | EEE ——" 

37 PRINT" TIBBBBBBERPOF | 

sg PRINT" ITTTIBBBBBERBISFOXELEHET — ONRBEKAIEIK" 

33 PRINT "AREA Ey BENNOLNKASSOFT May" | 
100 CLR:P=36879:POKEP-1, 15: PRINT "RN UNTEN UN YYYV VNA 
103 PRINT" At Veen‘ " ; : FORTSOTO3: PRINT" VVIRBDDERBBBDERBRBRDNY" ; 
NEXT 

118 PRINT"YYVIRBBBBBBBRBRBBBRN ‘GV :FORT=1T02:FORW=14910248 : POKEP-3,W:NEXT 

126 FÜRT1=1T02 

121 FORU=248T02085TEF-1:POKEP-3,W:NERTW;TI 

122 FORW=288T0131STEF-1 :POKEP-3:W:NEXTW,T 

{23 FORH=1STOASTEP-. 1: PÜKEP-1,W: NEXT: POKEP-3,8 

138 PRINT" EEDIEIBEBRITELTRETURNGI" 

i33 POKE198. 8: WALT198,1:GETGS: IFGSCICHRSKCLSPTHENL33 

155 PRINT" :POKE36869, 235: POKE36879, 8 


{59 PRINT" EBBbbbb — EEE | 4 IMEEEEEI—— " .@ 
158 PRINT" TIBBBBBABRFOR" | 


i6t PRINTMIIEBIRSIE SIND EIN JAEGER, DER FRUEH MORGENS ZUR JAGD GEHT." 

152 PRINT" MRTWERSUCHEN SIE HUN BIS ZUM SONNENAUFGANG SOVIELE FUECHSE" 

163 PRINT"@BILE MOEGLICH ABZU- SCHIESSEN." 

164 PRINT"MMISABER FASSEN SIE AUF DEN HINTERLISTIGEN BIBER AUF !" 

17B PRINT" EhbRbReIRL RETURN] " | 

171 PÜKE1SS.8:WALT198, 1:GETGE! IFGSSICHRECISITHENL33 

172 PRINT"N":PÜKEF, 158 

173 PRINT" MlassIE SPIELEN MIT DEM JOYSTICK: " 

(74 PRINT" ll. STICK NACH OBEN : MINNERNRERLLUIDETIAF IT" it 

175 PRINT" REM .STICK NACH LI/RE: BWinEnaRnNDETBHCHRRBLDETIEFT" 

177 PRINT" NMFEUERKNOFF = SCHUSS" 

178 PRINT"MMAR BIBERFALLE = J.N.U. Mm MNOLKS-SOFT Er." 

179 FORT=1 105598: NEx1 | 

189 FÜR J=38T0S2STEF. 5:PÜKE38865,.J:FOKEP-3. J+168: NEXTJ:POKE36865, 38 

181 PRINT"TI' :PÜKE36869, 248: POKE36879: 8 | 

152 PRINT" BITTE WARTEN SIE NUN! DER VC-28 LAEDT 1 MWFOX-HUNT zem" | 
143 POREP-1., 15: FORF=1T04:FORT=148T0255: FOKEP-3, T :POKEP-3, T-7 :NEXTT :POKEP-3, 9: NEX 


| 
184 CLR:PUKEISB,3:POKEB32. 147: POKESSS; 151 





Hauptprogramm: 

4 K1=8B12:K2=79110K3e795: FR=30728: Taer49l 

= P=36879: POKE368793, 18: POKEP-1, 12: FOKEP-18,. 242 

& PRINT"zIaelMININIIN AXIEL #FASS WUENSCHT @ GAHNEN -ROGSOFT LTD. !":J0=37154:MN=B842 
Ss GOSUB LaOB8 :GOSURSAAK : GUSUBSEARL: TI#="BBBaae" 

194 POKEJO, 127: J=PEEK(JO-33 : J1=PEEK(JO-2) | 
a IFT IE} "909859" THENFOKEF ‚, 158: FÜRT= 148 T0250STEF. 4: POKEP-3; T:NEXT:POKEP-3,.8: 60T 
Oılade 


ch 


er er 


LE IWE Ze nt 
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en 
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ı "184 IFJ<1G0G0T0S86 ee 
' + 445 IFJ=11ÖTHENPOKEMN.S:POKEMN+1.7:60T01180 '_ 
© | ids IFJ=122THENPOKENN,6:FOKEMN+1.18:GOTO1108 ‘® u 
+ 487 IFJi=119THENFOKENN, 6: FOKEMN+1,9:GOTO1108 32 
+ 188 IFJ=11STHENGOSUBERB: GOTL1Z008 oo 5 
ı®@ ı 169 IFJ=126THENIFJ1=24760T01899 ER, 
| , 58 FORT=3T05:POKEP-T.8:NEXT:POKEP-2.222:POKEF-1,15 | en 
= ' 581 IFPEEK{MN>=STHENPOKENHN-1,28:G0OT0988 za m m 
ı 7, 562 IFPEEK(MN+19=18THENPOKENN-21 , 28: POKEFZ+MN-21,2:60T0982 | SE 
| ' 563 IFPEEKCHN+1)=9THENPOKEMN-28, 28: FOKEFA+MN-28, 2:G60T0984 Tu 
| ® | 584 FORT=15T0RSTEP-B. 1:FÜKEP-1, T:NEXT:POKEP-2,@:POKEP-1,7 © u 
| 1585 FÜKEMN-1,32:FÜKEMN-21,32:FOKEMN-28, 32:G0T01198 m 
|. ı 586 FÜKESOSI:21:FORT=3T07:FOKEFA+BB89,T | 
| ® ı 881 IFPEEK(8839)=190RPEEK(8999)=19THENGOTO12958 we 
| 882 NEXT :PÜKEP-2, 168: PÜKES089, 32:POKEP-2,@:RETURN | | | Bu 
| | 388 IFPEEK(X1)2=STHENSC=SCH :POKEX1, 11: POKEFZ+X1, 0: POKEP-3, 156: FORT=1TOIEB:NEAT:F , @ TE 
| ı OKERL,32:60T09886 | Se 
4 Sal GOTOIBS | REN LE EN 
1 ı 382 IFPEEKCAZI=BTHENSC=SCH :POKEXZ2, 11: FOKEFZ+R2,0:POKEP-3, 156: FORT=1TO108:NEXT:P ı = TS 
| rr- ee alone FE 
m ' 3 GOTL20E | a 
” * ua4 IFPEEKCKSI=BTHENSC=SCHL :POKEX3, 11: POKEFR+K3, 8: POKEP-3, 156: FORT=1TO1AB:NEXT:P |, 7 
' OKEX3.32:G0T09a5 | u: Er] 
© ‘| 386 FORT=1STOASTER-B. 1:FOKER-1: T:NEXT:FÜKEP-2,8:POKEP-1,7 ı® 
‘ 87 PÜKEMN-1,32:FOKEMN-21 32: FOKENN-28,32:60T01198 | Bier 
1899 FORG=1TO14:NEXT ; | Bere | rn 
© ı 1169 FOKEX1, 32: FÜKEH2: 32: POKERS: 32: FH=CRNDC1IR3)+.8: IFFA<L.STHENFPOKEX1.B:POKEFA+ ı ® 7 
. %l:2 | Be 
|. ' 1161 IFFX>1.8ANDFX<2.6THENFOKEX2. 6: FÜKEFA+RZ, 2 'o® 
ı 7, 1182 IFFX>2.6THENPOKEX3,B:POKEFA+FRS, 2 | &. | Me 
| + 41183 BI=RNDGC1): IFEIXO,. B16THENFORT=STOS:POKER-T,8:G0T012006 Wu 
'® | 1206 POKEP-117:PE=PEEK(TA+X) :POKEP-3, PE:POKEP-4, PE:POKEP-5, PE:X=R+1:IFR=12THENN= ı © 
8 | Zu 
| _ ) 1281 PRINT" AMEIIIEENESC="SC: GOTO10G u 
” ı 8uaa FORI=BTO22:G0T08882 or = 
| + 8a6l FORI=22T08STER-1 N | and | =: 
© | 2002 FÜKEP-15, 12+1:PFÜKEF-14,38+1:POKEP-13, 150-1:POKEP-12,174-I#2:NEXTI:POKEP-10, ı o 
| © + 255:PRINT"M" ZT 
_ | 8403 POKEP,158 | | 5 
©: 8905 PRINT" ERZETWEZZZZZZEZZZERZZZZZ"; '® 
1 Bas PRINT"ZIET WEZZEZZZZZZEEWEZZZZZ"; Er 
. ı Bu07 PRINT 024 WEZZZZZZEN WWZZZ"; a 
= | 8008 PRINT'E m Au wwzzeinn W222" m 
I + 8869 PRINT" Kiki anni Hm Aa"; | iR | | = 
® | 8618 PRINT'wi RR ak Ha ABER HN Ho 
| a — ne == 
| ' saii FRIHT Ei — ei} Tr den 
8. 8912 PRINT" Se | mE 
| ' 8613 PRINT"® BAECHN AEC M .MABC"; | = 
eui4 PRINT" urö" u. 
8515 PRINT" gen" = 
| sale PRINT’ A ah" = 
ı® : 8817 PRINT"ABCHECHBARR N BRBCABACAC" ; > = 
| BalB PRINT!" TRAIN Ä = 
| _ : 86519 PRINT"WVVE L 9BY BENOMKS-SUFTER WIayW"; a u 
| #3 8028 PRINT TRAM NV :POKE8185,22:POKEFZ+8185,2 + 
| ı 8621 RETURN 1 | =; 
i® 15848 FOKESE.:28:FORT=SBTOL1: RERDW :POKETA#+T »Y:NERXT X zu 
+ ı1aa6i DATA22S,227,227,135,143,199,195,199,8,191.187:8 | en 
ti  ' 18802 FÜRT=124T0255STEF, +'POKEP-3, T:NEXT:POKEP-3, 8 | BE 
ı® : 16963 T=8:FOR1=7376107383:POKET , 255: NEXT :FOKES6, 28: POKES2, 28:RETURN @ 5 
5 41968 PRINT RR SAME OVERBK" :FORT=3T05:'POKEP-T,&8:NERT = 
|. : 11001 J=PEEKCJO-3>3 :IFJ<IGBTHEN CLR:RUN u 
”' 41802 GOTO11061 | | 5 
12584 FORT=3T05:FOKEF-T,8:NEXTT | .i en 
© ! 12091 FORN=BRISTÜSBBRSTER-.2:POKEN, 19:POKEN+FA,6:POKEN+1.32: IJ=PEEK(JO-39:IFJ=el18 | o 
' THENGOSUBSSAB | 2 
12662 NERT | . 5 
© ,,12863 IFFEEK(8086)=32 THEN GOTO 13068 '@ 5 
| . 12004 GOT0 13000 | | Re 
u ' 12050 FOÖRT=3TOS:FOKEP-T.BENEHT OO Ne: en, an 
ı  } 12851 FORT=1T0188: POKEP-2. INT C2SO+4#RNDCB33 NEXT POKEP-2,8:POKEP-1,7 7 
| 12652 SC=SC+1A:POKES689, 32:POKE8939, 32:G0T01298 see m 5 
| ı 13048 FORT=8641 108888 :POKET - 32:FOKEP-2, INTC1SEQ+4#RNDCB? 3 NEXT :POKEP-2,8 = 
13501 FORT=B187T08118:FOKET.32:NEXT:GOTO11068 | 


= = er „u a TE a We Er ee ee nd N N ee —ı Bu ns u 
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1D REM HHHBHHRHH E 
20 REH Ei = e 

ü 30 REM # I: WR 08 # 
' _ 50 REM *# COPYRIEHT (C) BY * 1 
ns &0 REM + | * = 
70 REM # PHIL ZUNDEL # = 
a 80 REM # # R 
790 REM * IN NOVEMBER 19784 # zu 

i00 REM # #* 
u 1i1o REM He | 
120 REM ib 
= 130 REM E 
140 REM en 





ADVENTURE-GAME 





Lenken Sie Ihre Abwehrraketen sicher ins Ziel! 


Nach dem Einrichten einer Verteidi- 
gungsbasis auf dem Planeten TYROS 
fällt Ihr Zielerfassungscomputer aus. Es 
bleibt Ihnen nun nichts anderes übrig, 
als die Abwehrraketen mit dem Joy- 
stick zu steuern. 

Auf Ihrem Kontroll-Schirm, der Ihnen 
einen dreidimensionalen Eindruck der 
Planeten-Öberfläche vermittelt, sehen 
Sie, weit entfernt am Horizont, den 
feindlichen Stützpunkt, von dem ’unun- 
terbrochen die gegnerischen Raum- 
schiffe starten, um die Erde anzugrei- 
fen. Richten Sie Ihr Zielkreuz auf diese 
Maschinen und feuern Sie Ihre Raketen 
ab. Im ersten Level kann das Raum- 
schiff vom Zielkreuz ein wenig entiernt 
sein. im neunten Level muß das Ziel 


150 DIM Li%Xt18) ,T1%118), T2% (31) ,LZA 51) 


170 GOTD 2030 





aber genau mit der Mitte des Faden- 
kreuzes übereinstimmen. Als Belch- 
nung erhalten Sie für jedes abgeschosse- 
ne Raumschiff Punkte. Wenn Sie 10 
Raumschiffe innerhalb eines Levels ge- 
troffen haben, erhalten Sie, ın Abhän- 
girkeit des restlichen Treibstoff, einen 
Bonus. Danach erreichen Sie den 
nächsthöheren Level. Sollte Ihnen ein- 
mal der Sprit ausgehen, verdunkelt sich 
der Kontroll-Schirm und: das Spiel ist 
zu Ende. Drücken Sie jetzt irgendeine 
Taste und Sie befinden sich wieder im 
Menue, Im Menue können Sie die 
Spielstärke wählen, den Sound an- bzw. 
abschalten. die Instruktionen lesen und 
das Spiel mit „RETURN starten. 





Er De 3 
° (West) — X position ——e (East) 


READ Xı POKE 24575 + I,kı dB 


'. ' 180 POKE 232,01 POKE 233,76: FOR I = 1 TO 124: | 
in NEXT I 
i90 DATA 3,0,8,0,43,0,53,0,55,55,63,63,55,45,45,53,53,53,54,54,54,37,36 


‚36,36,37,37,45,45,37,63,63,39,39,39,36,36,36,55,54,54,54,0 


200 DATA 53,45,37,37,63,368,29,52,55,0 
= »10 DATA 24,0,23,63,62,54,53,53,53,45,37,45,60,44,44,60,39,39,60,63,52, 
63,43,40,40,54,55,13,1,24,8,40,44,42,46,17,42,62,53,37,17,41,50,27 ,4 
6,53,55,63,46,55,23,59,51,59,63, 24,63, 36,28,368,33,9,9,10,45,23,53,55 
| I 70,0 
| 220 DATA 173,48,192,134,208,5,206,1,3,240,7,202,208,245,174,0,3,7612,3; 
1 75,0,0 
= 'ı 330 FOR I = 770 TO 792ı READ Sı FOKE 1,58: NEXT 
240 DATA 108,128,96,96,108,32,128,128,128,128,128,75,144,52,128,98,120, 
32,128,1792,120,128,144,76,108,32,128,192,160,128,192,756,144,32,216,2 
om 
. : 250 FOR I = 1 TO iBı READ TiXCI}r READ LiXCIde NEXT 


270 


JUnl/JULl 1785 


108,92,114,108,128,76,128,252 
DATA 1,92,128,72,129,92,144,92,160,92,172,92,192,92,160,72,172,92,1 


HoMECcoMmPUTER 63 


ae 


72,108,192,124,216,124,172,92,192,156,255,124,216,124,172,72,172,252 
FOR I = 1 TO Slı READ T2%(I)ı READ L2%(I): NEXT 
RETURN 


HPLOT 7,8 ID 7,10: HPLOT 2. m 2,6 
HPLOT 3,3 TO &,3ı HPLOT 3,7 TO &,7ı HPLOT 3,11 TO 6,11 
HPLOT 9,4 TO 9,10: HPLOT 10,11 TO 13,11: HPLOT 15,5 TO 10,5 
HPLOT 1&,4 TO 16,10: HPLOT 17,11 TO 20,11ı HPLOT 21,10 TO 21,41 HPLOT 
20,3 TO 17,3 
HPLOT 23,4 TO 23,11: HPLOT 24,3 TO 27,3: HPLOT 28,4 TD 28,6: HPLOT 2 
7,7 TO 25,7ı HPLOT 27,8 TD 27,11: HPLOT 28,11 
HPLOT 30,4 TO 30,101 HPLOT $1,11 TO 34,141 HPLOT 31,3 TO 34,3: HPLOT 
31,7 TO 33,7: HPLOT 36,5 TO 36,4: HPLOT 36,8 TO 36,9 
| ‚14 TO 0,14 TO 0,0 
‚14 TO 82,14 TO 82,0ı HPLOT 234,0 TO 279,0 


TO En 
‚ia 6,3 TO 89,35: HPLOT 87,5 TO BA,&: HPLOT 9 
„iii HPLOT 95,1d TO 75, 5 
HPLOT 97,4 77,101 98,3 TOD 101,3: HPLOT 98,11 TO 101,111 HPLOT 
98,7 TO 100,7: HPLOT 103,3 TO 103,101 HPLOT 104,11 TOD 107,11 
[0° Fr Ä HPLOT 109,8 TO 109,%ı HPLOT 111,2 TOD 111,12 TO 


‚2 
IPLOT 9,18 TO. | 279,171 TD 0,191 TO 0,16 
HCOLOR= 2: HPLOT [& 20 TO 279,120: FOR I= 1530 TO 190 STEP 10: HPLOT 
140,120 TO 1,Iı NEXT : FOR I = 0 TO 279 STEF 20ı HFPLOT 140,120 TO I, 
190: NEXT ı FÜR I = 190 TO 130 STEP - 10: HPLOT 140,120 TO 278,Ilı NEXT 


0 AS = iı FOR I = i20 TO 180 STEP 5ı HPLOT 1,I + AS TOD 278,1 + ABı AS = 
AS # 1.5: IF AS + I > 190 THEN 470 
NEXT I 
HEOLOR= 3: HPLOT 0,120 TO 277,120: FOR I = 120 TO 116 STEP - iı HPLOT 
130,1 TO 152,Iı NEXT ı HCOLOR= 0ı HPLOT 132,117 TO 150,117ı FOR I = 
{52 TO 150 STEP Sı HPLOT 1,119: NEXT ı HCOLOR= 3 


GOSUB 288C 
HLOLOR= 2: FOR I = 112 TO 229ı HPLOT 1,3 TOD I,„ilr NEXT ı F 
IF TV = 1 THEN RETURN 
’P = 0ı GOSUB 780: kM = 270:Y = 2: BOSUB 770:ıXM = BO 
B= -B8B: FR A=-2T05 
ie Ss0% THEN POkE 748,iA + 2) # 351 POKE 75497,17ı CALL 770 
USUE nn =B + l1ı NEXT A 


Y+1TDY+ 9 STEP Bı HPLOT X + 1,1 TO X + 5,Lı NEXT ı FOR 
5 STEP 4ı FORI = Y+2TOY + & STEP 4ı HPLOT X + J, 1 - 1 TO 
NEXT ı NEXT 


21 
Sr. +1 TU #5, 7 +9 


+1 
2 T0 


41 HPLOT X + 1,1 TO X + 5,Irı NEXT ı HPLOT 
HPLOT & + 1,Y +5 OU X + 1,7 #8 


ı TO Y 
K+ 


K 
1 TO-W 
+ 


ar 
- 


a 
„el 
= 
Br 
„7 Base D00P Et 5 TEREBRR DER , TEE 5 er ER DEE 


41 HPLOT X + 1,1 TO X + 5,Ir NEXT : HPLOT 
HPLOT X +5,Y+2 T0 X +5,Y+8 


ki + 
8” 
nf 

u+ 


ü 
- 


1,Y + Ss HPLOT X + 5,Y + 1 TO X + 5,Y + 5: HPLOT 
HPLOT X + 5,1 +5 T0 X +5,Y+9 


44 HPLOT X + 1,1 TO X + 5,1Ir NEXT ı HPLOT 
HPLOTX +5,Y+64 TD X +5,Y +98 


M+ 

un 
xD 
+ 


rn + 
EEE =E 
>» > 

m + 

=. 


1 


41 HPLOT % + 1,I TO X + 3,1: NEXT ı HPLOT 
HPFLOT X + 5,Y + 5 TO X + 5,Y + Bı HPLOT 


£ 


= 
+ 
je 
= 


Beh +5,Y + Iı HELDOT X + 5,Y + 2 ID X + 5,7 +97 
Y+ 1 TO.Y + 97 STEP 4ı HPLOT X + 1,1 TO X + 5,1: NEXT ı FOR 

J=1 T0 SSsTtEP 4 FOR I = Y+2TO Y + & STEP 4: HPLOT X + J,I TO X 

+ J,I + 51 NEXT ı NEXT 





9 STEP 4ı HPLOT X + 1,1 TO X + 5,Ir NEXT ı HPLOT 
Y + 4ı HPLOT X + 5,Y + & TO X + 5,Y + Bı HPLOT 


REM = u PUNKTE PLOTTEN #u# 
= BöıyY =2 
REM ##+#+ DIESE ZEILE NICHT VERBESSERN 


- rennen 

HCOLOR= 0 

HPLOT X + 1,1 +1 TO X +5,Y+1 TO X+5,Y+7 TO X +1,Y+9 70% + 
1,Y+1 

HPLOT X + 2,Y +5 TOX +4,Y+5 

HCOLOR= Sı IF 50% THEN PP = PEEK { - 15336) + PEEK t - 15356) + PEEK 


(- 15336) 
890 Ir EN pay SIE TTEN 910 
0 P& = RIGHTS (P#, LEN (P#) - 1)ı BOTO 820 
RETURN 


i a eronaı 
, HEOLOR= Sı DRAW 2 AT GXX,BYXıXP% = PDL (OJıAX% = XP% # 1.01 + 9YP% 
= POL (1)ıAYX = YPX / 1.7 + 26 
XDRAW 1 AT AX%,AY% 
EI BAREIDEN BUREEZRE LLE LEONE ER 
EEE 30) = INT HEN 1420 
COLOR= 3ı IF KK f JJ = INT KK / JJ) THEN MM = 
“3 +4ı IFGP =1i0RGP = 5 THEN Gi = INT { 


IF MM = 1 THEN B2 = INT CE RND ti} # 277) +1 
IF MM = 1i THEN IFGP = ii THEN RA = t - 138 / gi - 1109) = 4 
T=A1ı IEMM = 1 THEN IF GP = 2 THEN R% = t((62 - 140) # (17 - 110)) 


er ee 


XDRAW 


K,GYH 

Ye = BYE - 1L® ABS (RWIIENT = GXX + SEN IR) = 4 
BY% £ 25 THEN Bann aaa GOTO 930 

> OR GX% > 268 THEN XDRAW 1 AT AX%,AYXı GOTO 930 


nnmnmn 
9238 


IF AX% > 124 AND AX% € 153 AND AY% > 80 THEN 1390 
HEOLOR= 3 
sah = = ZASISY% = 30182 = 2481Bi = 30172 = AXX - 824172 = T2 / AYk - 
17} # 1.9157 = AX% - BYXıST = ET / tAY% - 17)ı5T = ST # 1.7 
FÜR OW = 17 TO AY% + 2 STEP 2 
IF DS = 1 THEN 1200 
IF 50% THEN POKE 758,100: POKE 789,21 CALL 770 
REM #*% STRAHLEN PLOTTEN ### 
HPLOT 5Y%,17 TO Bi,0W 
HPLOT 52%,19 TO B2,0OW 
IF RT = i THEN RETURN 
Bi = Bi + 5Tı IF Bi > 279 THEN Bi = 269ı1RT = 11 GOSUB 1210 
IF Bi < 1 THEN Bi = 10:ıRT = 1: GOSUB 1210 
BZ = B2 + T2ı IF B? > 279 THEN B2 = 259: RT = 1ı BOSUB 1210 
IF B2 <£ 1 THEN B2 = 10:ıRT = 1ı GOSUB 1210 
RT = © 
NEXT DOM 
ujsle IF DS = 1 THEN DE = O1 RETURN 
‘ 1310 GOSUB 18101 REM TREFFER 777? 
1320 UI = FıFM = FM - it GOBUB 1420101 = 0 
1 HEOLOR= 0:ıDS = 1ı BOSUB 
HCOLOR= 0: DRAW 1 AT AXZ,AYZa DRAN 2 AT: GXX,GV% 


HEOLOR= 3 
- Eu = "jh THEN TR$ = "N"ı GOTO 730 





=) 1880 6B0TO #40 
| 1390 IF 80% THEN FOR I = 10 TO 100 STEF i0: POKE 758,1: FOKE 759,3: CALL 
|: 70: NEXT 

1400 XDRAW 1. AT AX%,AY%ı HCOLOR= 0: DRAW 2 AT GX%,6Y% 

1410 GOTD 740 





| ' 1420 FM = FH - 1ı IF FM< = 113 THEN 1440: REM SPRIT ZUENDE ie 
| ' 1430 HEOLOR= 0: HPLOT FM,S TO FhM,il | Tr 
= | 1440 IF UI = 9 THEN HPLOT FM + 1,3 TO FM + 1,111 HPLOT FM - 1,3 TO FM - u 
| | 1,11: RETURN 
 _ 1450 6G0TO 980 = 
‚© | 1460 FOR I = 50 TO 250 STEP 101 IF 50% THEN POKE 7&B,Iı POKE 769,5: CALL ‚= u 
| | 770 | BB. 
| ' 1470 NEXT z HCOLOR= 0: HPLOT 0,0: CALL 62454: FOR EE = 1 TO 755: NEXT EE | 
| 
| , 1450 FOR I = 100 TO 180: HCOLOR= 3: HPLOT I,70 TO I,112 


1490 IF S0O% THEN POKE 768,1 - 50:ı POKE 769,2: CALL 770 'w Bu 
| 1500 NEXT a 
in '! 1510 HLOLOR= 0: HPLOT 103,73 TO 113,73: HPLOT 102,74 TO 102,87: HPLOT 10 
3,88 TO 113,88: HPLOT 114,87 TO 114,82: HPLOT 113,81 TO 107,81 
' 1520 IF 50% THEN PP = PEEK t —- 16334) + PEEK t - 16336) + PEEK t - 16 
336) + PEEK { - 16356) + PEEK-(t - 16334) + PEEK t - 163564) + PEEK ı 
( - 163356) + PEEK { - 16336) gr 
1530 IF 60 = i THEN RETURN u 
1540 HPLOT 114,88 TO 116,741 HPLOT 117,73 TO 127,73: HFLOT 128,74 TO 128 1” 
| ‚dd: HPLOT 118,81 TO 1265,81 | 
1550 BO = iı GOSUB 1520 m. 
1560 HPLOT 131,88 TO 131,741 HPLOT 132,73 TO 143,731 HPLOT 144,74 TO 144 Ä 
I ‚Bdı HPLOT 137,75 TO 137,79 ' 
| - , 1570 B0SUB 1520 == 
' 1580 HPLOT 148,73 TO 159,73: HPLOT 147,74 TOD 147,87ı HPLOT 148,88 TO 159 | 1 
‚88: HPLOT 149,81 TO 156,81 @ 
| 1590 GDSUB 1520 | 
| 1500 HPLOT 120,93 TO 130,93: HPLOT 131,94 TO 131,108: HPLOT 130,109 TO 1 
| 20,109: HPLOT 119,108 TO 119,94 
| 1&10 GOSUB 1520 | 
© , 16820 HPLOT 133,93 TO 140,109 TO 147,93 | 
| 16530 BOSUB 1520 | 
| , 1640 HPLOT 151,73 TO 142,93: HPLOT 150,94 TO 150,108: HPLOT 151,109 TO i 
| | 52,109: HPLOT 152,101 TO 159,101 
1&50 GOSUB 1570 
| 1650 HPLOT 145,94 TO 165,109: HPLOT 166,93 TO 175,93: HPLOT 177,94 TO 17 
| . 7,100: HPLOT 176,101 TO 167,101: HPLOT 173,103 TO 177,107 
1470 GÜSUB 1520 
| 1550 60 = 0 o Wu 
1590 HEOLOR= SıkM = 175ıY = 1idı GOSUB 790 | | 
N 1700 „eOR I= 1 TO 31: IF SO% THEN POKE 768,T2%(l)ı POKE 769,L2%tI)r CALL 8 | 
1710 NEXT | 
ı 1720 IF 80% THEN FP = PEEK t — 18336) + PEEK t -— 15336) 
| ‚ 1750 HCOLOR= 3ı HFLOT 100,70 TO 180,70 TO 180,112 TO 100,112 TO 100,70 j 
| ! 1740 HPLOT 97,47 TO 181,597 TO 181,113 TO 99,113 TO 99,69: HPLOT 98,58 TOD | 
| 182,48 TO 182,114 TO 98,114 TO 978,48: FOR IG = 1 TO 555: NEXT | 
| ‚ 1750 HCOLOR= 0: HPLOT 98,658 TO 182,58 TOD 182,114 TO 79,114 TO 78,58: HPLOT 
| 77,67 TO 181,57 TO 181,113 TO 99,113 TO 99,6%: HPLOT 100,70 TO 180,7 | 
| | o TO 180,112 TO 100,112 TO 100,70 | 
ls | 1760 nn PEEK t - 15384): IF WA £ 127 THEN 1720: REM TASTE GEDRUECKT 8 
' 1770 BET TASTE$ı TEXT | 
ı®@ ı 1771 IF S0% THEN 50% = 0ı GOTD 1780 oe | 
' 1772 50% = i | A 
ı. : 1780 IF P > HS AND DL = O THEN LEX = DL: G0TD 2030 ua 
ı 7,1790 IF P > HS THEN HS = PıLEX = DL: GOTO 2030 
' 1800 G0T0O 2030 ei 
ı 1810 64 =5 - DL # „4 ; ' = 
' 1820 Di = AXX - BX% - 1ıD2 = AYk + 2 - EY%ı IF DI > - GW AND Di < GW AND | Baht 
| D2 > - BW AND D2 < GW THEN 1870 a 
1830 IF 50% THEN FOR AC = Bi TO 120 STEP Sı FOKE 748,1: POKE 759,5: CALL ı 
| 7701 NEXT m 
‚ 1840 IF P > 100 THENP=P - 50: GOSUB 770 m u 
' 1850 TR = "N" 
|. ı 1860 RETURN 
' 1870 XDRAW 3 AT AXX,AY%ı GOSUB 1920: DRAW 3 AT AX% + Z,AY%ı GOSUB 1920: DRAW | 


.-——-- ni r-— - -— — — _- ——— .———— = - D— - ——— —- — [ee ——-- _— = - - - _—- —— - 
- _— n— -— ze Be - Z— ir - r— rw 
ä Lo N n 4 es = - j tr - # 
——— _ “= - a ; id 


ut “ 4 
— — —— Em — —" 4 lo — ii —. —. _ — — 2 in — — — Dı — — — vo _ — 
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3 AT AX%,AY% + Sı BOSUB 1920 

1880 DRAW 3 AT AX% + 3,AY% + Sı HCOLOR= 01 BOBUB 19201 XDRAW 3 AT AX% + 
| 3,AY% + 3: BOSUB 1920 
1890 XDRAW 3 AT AX%,AY% + 3ı GOSUB 1920: XDRAW 3 AT AX% + 5,AY%ı GOSUB 1 
9204 XDRAW 3 AT AX%,AY%ı GOSUB 1920 
41900 DRAW 3 AT AXX.AY%: GOSUB-1920: DRAW 3 AT AX% + 3,AY%: GOSUB 1920: DRAW 

3 AT AX%,AYk + 5: GOSUB 19201 DRAW 3 AT AXK + S,AYA + 3 

‘1910 GOTO 1940 
‘1920 IF S0% THEN POKE 748,200: POKE 769,51 CALL 770 
, 1930 RETURN 

1940 P=P + (LEX * 100): GOBUB 790 
1980 TL = TL + lıPi = PıP = TLıXM = 270ıY = 2ı GOSUB 790:1P = PiıXM = 80: IF 
- TL = 10 THEN G0TO 2560 


 +1960 TR$ = "J" 
„ ı 1970 RETURN 
8 41980 HPLOT 50 + A,BO + B TO 80 + A,35 + Bı HPLOT 55 + A,35 + B TO 270 + 
| A,SS + Bı HPLOT 73 + A,60 + B TO &0 + A,BO + B TO #1 + A,S0 + Br HPLOT 
|®. 109 + A,60 + B TO 70 + A,i10 + B TO 2 + A,110 + B 
| "1990 HPLOT BO + A,il0 + B TO 118 + A,&0 + B TO 145 + A,60 + B TO 140 + Ai 


| ‚65 + Bı HPLOT 155 + A,60 + B TO 185 + A,&0 + B TO 170 + A,BO + B TO 
145 + A,B0O + B TO 155 + A,&0 + B 

| 2000 HPLOT 223 + A,&0 + B TO 197 + A,&0 + B TO 185 + A,B0 + B TO 209 + A 
®@. ‚80 + B TO 195 + A,110 + B TO 90 + A,l1iö + B 

2010 RETURN 


2020 REM 4er MENU Bene 

2020 TEXT ı HOME : YTAB iı HTAB id: PRINT "emm=s======"ı VTAB 2: HTAB 1& | = 
ı INVERBE : PRINT " TYROS "sr NORMAL = VTAB Sr HTAB 18: PRINT "= | ne 

| semmsszmzels VTAB 2ı HTAB 27: PRINT "=="jı HTAB 141 PRINT "==" | 

2040 REM ###+# BARBARGE COLLECTION #### 


u 2050 FB = FRE (0) 
© | 2050 WVTAB 2ı HTAB it: PRINT "semmongzm=e=ee",s HTAB 29: PRINT "esasasssen 


2070 FOÜKE - 15358,0 | 
>080 WVTAB 4: HTAB i: PRINT "Highscore :"zjı INVERSE ı PRINT " ";5H55" "pe NORMAL 
's HTAB 23: PRINT "in difficulty 1"31 INVERSE ı PRINT " ";LE#3" "jı NORMAL 
ı VTAB Sı HTAB is: PRINT "-———--———"3: HTAB 25: PRINT "nn" 


| 
|. : 2085 LEX = OıDL = 0 
| "2090 WVTAB &: FOR I = 2 TO 36: HTAB Ir PRINT "="jı NEXT =: FOR I = 7 TO 17 
ı VTAB Iı HTAB 36ı PRINT "=": VTAB Iı HTAB 2ı PRINT "=": NEXT 
.® |2100 VTAB Sı HTAB 4ı INVERSE ı PRINT " ESC "jı NORMAL ı PRINT" = quit 
' the game" 

_ 2110 VTAB 10: HTAB 4: INVERSE ı PRINT " RTN "ja NORMAL ı PRINT" = sta 

u rt the game" 

>120 VTAB 121 HTAB 4ı INVERBE ı PRINT " 5 "jı NORMAL « PRINT" = sto 


u, ry of the game" 
| 2150 UY =-1 


| _ 2140 VTAB 14: HTAB 4: INWERSE ı PRINT" A 8 NORMAL : PRINT" = App 
Be; le sound"ıAA$ = "A"ı GOSUB 2300: AA& = "" 
2150 FOR I = 2 TD S6ı HTAB: Iı VTAB idı PRINT "="j: NEXT = INVERBE : VTAB 


® | 17ı1 HTAB 3: PRINT "NUMBERS © TO 7 : DIFFICULTY/LEVEL" 
| 21&0 HTAB 381 VTAB 7ı PRINT "D"ı HTAB 38: VTAB B: PRINT "I": HTAB 38: VTAB 
‘ 3: PRINT "F"ı HTAB 38: VTAB 10: PRINT "F"ı HTAB 381 VTAB 1lı PRINT 5 
Gr 1 
170 HTAB 38: VTAB 12: PRINT "C": HTAB 38: VTAB 13: PRINT "U": HTAB S8ı VTAB 


141 PRINT "L"ı HTAB 38: VTAB 15: PRINT "T"ı HTAB 38ı VTAB Iidı PRINT 
" NG [17 
' 2180 VTAB iBı HTAB 38: NORMAL ı PRINT "0" 
2190 WTAB 1Bı HTAB 1ı FOR I = 2 TO 36: HTAB Iı PRINT "="jı NEXT 
| '=200 NTAB 22: HTAB i1ı FOR I = 1 TO 40: PRINT "="jı NEXT : VTAB 25ı HTAB 
|: {1 INVERSE ı PRINT "COPYRIGHT :"z: NORMAL ı PRINT " by Phil Zundel ( 
November ’84)"zı INVERBE ı PRINT "SOUND ABSISTENT et"jı NORMAL ı PRINT 
" Karl-Heinz Protzer"ı | (te 
2210 IF DA >41 THEN VTAB 20: HTAB 8ı INVERSE ı PRINT "PLEASE WAIT--- m 
READ DATAS"ı NORMAL ı GOBUB 180 
a '2220 DA = 1ı FOKE - 155358,0 


—— (is m 


| 3230 VTAB 201 HTAB Bı NORMAL ı PRINT SPCI{ 30)ıPP = PEEK ( — 16336) + PEEK 

| h t- 16356) + PEEK ( - 16336) + PEEK I - 16356) + PEEK ( - 16338) + 

ı ® | PEEK ( - 16324) + PEEK ( - 16336)ı VTAB 20: HTAB 8: INVERSE ı PRINT | 

| "PRESS THE KEY YOU CHOOSE"ı NORMAL 

|. 2240 TP = PEEK ( - 16584) ı IF TP < 127 THEN 2250 (a @ 
s= ‚2250 IF TP > = 127 THEN 2270 en 
— EEE SZHESSTT TEENS FEST es ErEeeg 
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2280 
2270 


2280 


2290 


2420 


' 2430 


2440 


‚ 2450 
' 2440 
2470 
. 2480 


, 24970 
' 2500 


2510 
2520 
25350 
2540 
25350 
25650 


2570 


‚ 2580 


235970 


' 2400 
‚ 2610 
2420 


, 2630 


2640 
2550 
2440 


2670 
' 2680 


2690 
2700 
2710 
2720 
2730 


2740 


BOTD 2240 

BET AA$ı IF Ah$ = 
"BUIT THE GAME": 
25ı END 

IF ARA$ = CHR#& (135) THEN WVTAB 10: HTAB 14: 
THE GAME": NORMAL : GOTO 2550 

IF AA$ = "5" THEN PP = PEER t — 15336) + PEEK { - 18336): WTAB 12 

ı HTAB 14: INVERSE ı PRINT "STORY DF THE GAME": NORMAL ı POKE 34,5: GOTO 
2570 


CHR$ (27) THEN WTAB 8ı HTAB i4ı INVERSE ı FRINT 
NORMAL ı FOR RY = 1 TD 1000: NEXT : TEXT : HOME ı VTAB 


INVERSE s PRINT "START 





: 2500 IF AA& = "A" AND 50% THEN 50% = Or VTAB 141 HTAB 28: PRINT "on?"jı INVERSE 
ı PRINT "OFF"ı NORMAL ıPP = PEEK ( - 18356) + FEEK ( — 18536)ı BOTO 23 ! 

20 

2510 IF AA& = "A" AND 50% = 6 THEN 60% = iı WTAB 14: HTAB 251 INVERSE ı PRINT. i 
"ON" NORMAL ı PRINT "/off"ıPP = PEEK ( - 15356) + PEEK ( - 18336 
) j 

2320 IF UY = 1 THEN UY = 0: RETURN | h 

2350 IF Ah > = "oO" AND AA# < = "@" THEN DL = WAL tAAt)ı VTAB 1Bı HTAB on; 
38ı PRINT BDLıBDL = DL - iıPF = PEEK ( — 15335&) + PEEK (i - 14336) 

2540 FOKE - 15358,0ı G0OTO 2240 

23550 FOR TB = i TO 888: NEXT TB 

2540 GOTD 300 

2370 IF 680% THEN FÜR I = i TOD 18: POKE 758,T1X(T)ı FOKE 759,L1#iI)ı EALL 
7701 NEXT 

2580 RETURN 

23970 FOR I = i TO 1000: NEXT ı HOME 

2400 REM “+# STORY DF THE GAME #e# 

2410 PRINT "Die Erde wird bedroht !"ı PRINT ı PRINT "Sie sind der Letzte 


‚ der die Menschheit wor der Vernichtung retten kann !"ı PRINT "Fein ws 
dliche Raumschiffe’ vom Planeten TYROS greifen die Erde an. Sie s nn el 
ind auf" 
FRINT "dem Planeten TYROS, um die startenden, feindlichen Raumschi ; | 
ffe zu vernichten. Dank Ihres. Controlschirms koennen Sie" 

PRINT "Ihr Zielkreuz auf das feindliche Raum- schiff richten." ua 
FRINT "Durch Druck auf den Feuerknopf werden zwei Raketen abgefeu 
ert.": PRINT "Jeder Schuss kostet Energie."ı PRINT "kenn Sie 'keine m 

ehr haben, ist das Spielzuende." 


PRINT ı PRINT "V IELUOBGLUELCK !ıım | 
IF 50% THEN 80% = 0: 60T0 2480 12a 
ei .e“ 
une - 153558,0:ı PRINT : PRINT "Tastendruck": WAIT - 15384,128: GOTO | 
GOSUB 2370 | 
HEOLOR= 0: FOR I = i TO 141: HPLOT 1 + 1,18 TO i + 1,110: HPLOT 278 | 
- 1,18 TO 278 - 1,110 

IF 50% THEN PF = PEEK ti - 15334) + PEEK t -— 16336) 

NEXT 

IF DL = - i THEN LEX = i1ı GOSUB 7790: GOTO 2550 
LE%X = DL + i: GOSUB 2790 

RETURN 
BO = (FM - 112) * 50 # LE%ı HCOLOR= 0: FOR I = FM TO 112 STEP - iı HPLOT 

1,3 TO 1,11 

IF 50% THEN FOKE 758,80: POKE 759,5: CALL 770 

NEXT - 
LEX = LE% + 1:UI = 0 

HEOLOR= 3 

REM ##+ ’BONUS’ ROUTINE ##* 

HPLOT 176,5 TO 201,5 TO 201,7 TO 196,9: HPLOT 1977,& TO 197,81 HPLOT 


198,7 TO 200,7 

HPLOT 203,5 TD 207,5 TO 207,9 TO 203,7 TO 2053,51 HPLOT 207,7 TO 209 
„sı HPLOT 210,5 TO 214,7 TO 214,97 TO 214,51 HPLOT 215,5 TO 218,7 TO 
221,7 TO 221,51 HPLOT 228,5 TO 223,5 TO 225,7 TO 228,7 TO 228,9 10 2 





23,9 
IF GH = i THEN RETURN 
YU = it HCOLOR= 0: SOSUB 2710:YU = 0 | ' 


X = 278ıY = ZıPi = FPıF = BOı GOBUB 770:ıP = Pi 
FOR I = 1 TOD Bö0:ı NEXT 
BR = 1: GOSUB 1530:1BR = OıYU = 1r BOSUB 2700: Yl = O8 
P=P + Bü:ıXM = BdıY = Z: GOSUB 770: GOTO 2770 
GH = 1: HEOLOR= 0: GOEUB 2220:6H = 0: 
FOR I = 255 TO 278ı HPLOT I,i TO I,15ı NEXT ı HEOLOR= 3 
IF YU = 1 THEN RETURN 
BXi% = 1401ıBY% = IilOıKkK = JJ - lıml = 1 
FMH = 2291 TIL = O1 TV% = 1ı BOSUB 490: TV = 0 
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| 2750 IF DL = 0 THENDL =LEX +1 
2760 DL = LEXı GOTO 740 7 
| 2770 TY = lt GOSUB 2790ı HCOLOR= 01 FOR I = 180 TO 190: HPLOT 1,99 TO 1,1 
= i0:ı NEXT : HCOLOR= 35ı GOTO 2840 >» EB 
2780 REM “#*# ’LEVEL’ ROUTINE #4 | | | 
2790 HCOLOR= 5 | | De 
2800 HPLOT 120,100 TO 120,110 TO 125,110: HPLOT 127,106 TO 127,1103 HPLOT 7 
9 128,100 TU 133,100: HPLOT 128,105 TO 133,105 | | Bin 
' 2810 HPLOT 129,110 TD 133,110: HPLOT 135,100 TO 139,110 TO 141,110 TO 14 oe = 
| 5,1001 HPLOT 147,100 TO 147,110 TO 152,1101 HPLOT 148,105 TOD 152,105 | B 
Mn BE 
R ' 2820 HPLOT 148,100 TO 152,100: HPLOT 154,100 TO 154,110 TD 159,110 5 
2830 IF TY = 1 THEN RETURN BE: 

Ban 2840 Pi = PıP = LEXıXM = 178:Y = 100ı BOSUB 770:ıP = Pi | | m wu 

, 2es80 IF 50% THEN POKE 768,70ı POKE 769,100: CALL 770: POKE 788,55: FOKE | et 
| 769,255: CALL 770 a 5 
\® : 2860 FOR Jk = i TO 10001 NEXT ıXM = 80:Y = Z2ıTY = 1ı HCOLOR= 0: GOSUB 28 en 
' 00:ıTY = O0: FOR I = 160 TO 1901 HPLOT 1,99 TO 1,1104 NEXT » GOTO 2730 
ww = 5 
' 2870 HEOLOR= 0:ıTY = 1: GOSUB 28004TY = 01 FOR I = 170 TO 180: HPLOT 1,997 | um 
a TO 1,110: NEXT ı RETURN . 
=: 2880 Ki = 100 :’=E 
2890 XBX = RND t1) # 100 + Ki : 

9 2910 IF VBX > 145 THEN HB = 45 9 

. 27520 IF YBX < = 165 THEN HB = 28 ®& 

| ® 2930 RR%X = XB£ + RND (1) # 23 +55 'W 

ı 2940 IF RR% > 279 THEN RR% = 279 | 
=! 2950 IF XB% > RR& THEN XKB% = RR% +. 
2940 HCOLOR= 5ı HPLOT XB%,YB%X TO RR%,YB% | cu 
5.2970 FOR I = YB% TO YBX - HBSTEF -1i 
| € 2780 IF RR% < XB% THEN 3010 = = 
2990 IF XBX = > RR% THEN 3010 | | er 
di 5000 RR% = RR% - RND (1) = 3 + 1ıXBX = XB% + RND (1) #* 5 + ia HPLOT XB% 

-2 „I TO RR%,Ir NEXT | iR 
De 3010 IF Ki = iO THEN RETURN = 
| @ 2020 LR = 220 uw 
; 3030 HCOLOR= 3 T- 
Br 3040 FOR I = 190 TO 145 STEP -1 
Fi 3050 LR=LR + INT (RND (1) = 3+ DDı IF LR > 277 THEN 3070 | 

' 3040 HPLOT LR,I TO 279,1: NEXT € 

© | 3070 Ki = 104 GOSUB 2890ıK1 = O ı u 

' 3080 RETURN ge 


SMILEY 


Dragon 32 








Lächeln Sie - und sammeln Sie Kristalle! 


Auf dem Planeten Smiley gibt es zwei 
Arten von Bewohnern: die guten und 
die bösen Smileys. Die guten Smileys 
sammeln Kristalle und leben von deren 
Verkauf, während die bösen Smileys 
Kannibalen sind und gute Smileys fres- 
sen. 

Sie steuern einen guten Smiley durch 
die unterirdische Höhle und müssen 50 
viele Kristalle wie möglich sammeln. 
Dabei befinden Sie sich immer in ei- 
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nem der vier Gänge. Bei einer Unter- 
brechung können Sie in einen anderen 
Gang wechseln. Aber passen Sie auf! 
Ein büser Smiley kommt Ihnen enige- 
gen und versucht, Sie zu fressen. In der 
Mitte wird angezeigt, wieviel Energie 
Sie noch haben. In den Gängen liegen 
Kuchen, die Ihre Energie wieder erhö- 
hen. Wenn allerdings ein böser Smiley 
auf einen Kuchen trifft, verwandelt er 
sich in einen Gifikuchen. Sie müssen 





diesen Gaftikuchen dann übergehen, da- 
mit er sıch wieder in einen Energieku- 
chen verwandelt. Wenn Sie alle Kristal- 
le gesammelt haben, erscheint eıne 
Graphik, danach geht das Spiel mit er- 
höhten  Schwierigkeitsgrad weiter. 
Jetzt nimmt die Energie schneller ab 
und beim Verspeisen eines Kuchens 
gibt es einen Zeitabzug, 


Gesteuert wird mit einem Joystick: 





 HOMECOMPOTER 69 


#0 HOMECoMPUTER 


=> "SMILEY 

10 "GESCHRIEBEN 84785 VON THORSTEN HOFFMANN 

20 "PROGRAMMKOPF 

=0 CLEAR1300: PELEARB: PMODES: POKESS4F5 „O0: AF=SCHRE (1913 2 A4S=SSTRINGE (4, AR) : BF=CHRE (1 
73 : CH=CHR# (128) : D#=SCHR# (175) tr EF=CHRF (207) rE4F=SSTRINGF (4 ,EF) : FE=SCHRE 175) 

+0 CLES:PRINTEFA,„" "PRINT 


" re 
PR "un 





SO SMEIOJ=AdE+" "+BF+BE+" "+BHBg+" "cz" "4 N+EAE+H" Narstt — N4FS:SMEI1 ar 
I=Afr" "+54" "+B54+" "BSH" "V4ıngHt HIngH" "+EF+" 44" uypgr "+r$ er 
50 SMELZI=AAEH" "+BE+" "+BE+" "+ "+DE+ "+EAE+" "+F5:5MF(I)=" "+As+ u 
au m +BE+!" "4.B4t "4+CH+ ra ER ur n4Es4 u "ur | ä 1 
’O SM£E(lä4)=Adf+" "+Bs+" "+BE+" "+CH+" "+Ds+DsrDs+rDEr "+EA42H pH ie krsn 
30 FLAY"T20": FORA=0TD29: FORB=S0TO4: LM&BI=SLEFTFSME(B) „A+1) :NEXTB=:C=157-A: FORB=OT air 
04: PRINT@C+B#32,LM# {B) :NEXTB: SDUNDA#7+1 „1: SOLUNDA#7+20,1:NEXTA:FORA=OTOS:SCREENO, | m 
1: PLAY"ABED":SCREENO,0:PLAY"DCEBA":NEXTA - u 
90 FRINT@SF3,"BITTE WARTEN"; + 
100 FORA=0TO4: SM# (A)="":FORB=SOTOS1:PA=PEEK t1152+32#A+B) : IFFA=SFETHENPA=143 © BE 
110 S5M&£tA)=SMF (A) +ECHRE PA): NEXTB,A rer 
120 DIMF1 (8) ,513,7),,F21&) ,Li&) ,Pt3,3) ,L1 (6) ,„LA(ö) ,LB(ö) ,‚LD(&) ,MX (2) ,MYi2) ,„EE(ö), Be 
EKt&) „ZUt2) o Ds 
130 V£t1)="DER BOESE SMILEY DICH GEFRESSEN HAT!!E":VE(2)="DU KEINE ENERGIE MEHR Er 
HATTEST!!!":FORA=0T03: SC (A) =250: SCH (A)="KKXXKX" NEXTA1L4O FORL=SOTOS:FORD=OTOF:READ |! m © 
S(L,DI:NEXTD,L:FORF=0T03:P(P,F)=1:NEXT u 
150 DATA? ,-15,6,-10,3,-7,0, 74,713, 79,710, ,-4,-7 ,-3,74,0,79,135,75,10,-3, 7,0, 4, 13,9 Kl 
‚10,5,7,3,3,0 Hart 
150 "FIGUREN DEFINIEREN E5 
170 PCLSS:DRAW"C1IBME ,1SHILSHIUIRLSDIGILSGICZBNM2, 1 LESRIFSLP":PAINT (5,10) ,2,2:PAIN Kruse 
Tt6,13) ,1,1:BET(0,5)-115,15) ,EE hear 
180 PCLS3: DRAW" CZBNS ,„1NR2G1NRSLIGINRIODINRIOFINRSRIFLNRZDINR2DINRZCEIBMO ,BNDZM+14 151 
‚+7U2BM9, 15NU2M+14 ,-7D2":PSET{4,3,3) :PSET{10,3,3):GET (0,0) -(15,15) ,EK u 
170 COLOR1 ,3:PCELS:6ET (0,07- 115,15) „L:DRAW"BM1 ,SDFFIRLFIRIFIRSEIRLELRIEIUFHILIHIL ker 
ee ae et u 
se 
200 PELS:DRAW"BMI1 ,4D5FSRSESUSHSLIHILSGIL163BM4 ,5R1D1BM10,5SR1D1BMA4 ,IRIFIRSEL":PAI | 
NTt3,4),2, 1:GET(0,0)- (15, 15},F2 - 
210 "SPIELFELD - u 
220 PMODES,1:COLOR2,3:FCLS = 
229 g=18: FÜRB=1T03:FORA=D TO 045: LINE(A,A)- (255-A,191-A) ,PSET,BzNEXTA:Q=0+24:NEX , @ 7° 
ext 
240 COLOR2,3:FORO=BTOSASTEP24: FORA=O T0255-0 STEFB:PSET (A,D) ePSET(A,ÄOH1 I: PSET(A, ı, _ 
192-0) :PSET (A, 193-0) :NEXTA:FORA=Q TO1F2-D STEPB:PSET (Q,A):PSETIQ,A+13:PSET (256-0 ı ® I 
‚A)=PSET(258-0,A+1): NEXTA,O vtd 
250 GET 1240,0)-1255, 15) ‚LA: GET (240,176)- (255,191) ‚LB:GET(0,0)-115,15),LD a 5 
260 COLORS,3: LINE(104,0)-(151, 191) „PRESET „BF: LINE (0 »72)3-(80,119), PRESET, BF:LINE( a 
17& „72)-(255, 119) ,PRESET,BF 
270 COLOR4,1:LINE (88,98) - (166,109) „PSET „BF:LINE (88,99) - (165,105) „PRESET,B rs 
280 DRAW"C2BM®Z, 98; NRAUFNRAUSRGBRANDSM+B,, +4 D2USBRSBDLDI1BD2D1" :FORX=122T0152STEP4 2 
:LINE(X,723-(X,98) ‚FSET:NEXT: COLOR2,3:PCOPY1T0S: PCOPY2TOS: PCOPY3TO7:PCOPYATOB | 
290 PLAY"V31":C8=0:VE=1:G0SUB1180: TE=250: 5P=0: NT=0: NA=0:C0LOR2,4 | 
>00 WW=0:V=1:TY=0:EN=10: UV=1: 77=2: TN=1:Y=48: X=136: Y2=176:%X2=136:X3=42: Y3=Y2:P(0, Ei 
Ol=1:K1=k+8: Yi=Y:FORZ1=0T02: ZU 171)=0:6G05UB770: NEXT Z1:582=0: PUT IX2,Y2)- (X2+15,Y+ | 
15) ,F2 ! 
>10 L=3:D=4:T=D:7=S(L,D) :SG=SGN (Z) : GOSUB710:L2=0: D2=1: T2=D2: 7Z2=5 (L2,D2) :SK=SBN{Z \ 
2) :W2=1:H=1:H2=1:60SUB1350: TIMER=0:SC=O n 
320 "HAUPTSCHLEIFE 
350 IFZ THENZ=7-S5G: IFV=1THENX=%+8+56 ELSEY=Y+B#SG ELSE420 | 
>40 IFTY=ÖTHENIFZZ THENPUT (X1,Y13—-(X1+15,Y1+15) ,LiZZ=2Z-1 ELSEPUT{X1,Y1)-iX1+15, | 
Yi+15),L1 ELSEGOSUB73O ae] 
350 PUTEX,YI-(X+15,Y+15I „FileXieXeVYisYıIFX=X2 AND Y=Y2 THENVV=1:GOSUB1340: GOTO480 : 
ELSEIFTIMER>TE THENGOSUBFIO a 
540 IFNA=OTHENIFZZ2 THENZ2=77-SK: IFV2=1THENX2=X2-8#5K ELSEYZ=YZ-B#5K ELSE440ELSEN 
A=NA-1:PLAY"OSTIOODEBA" 
370 PUTIXS,YSI-(X3+19, Y35+15) „L3PUTIX2,YI - (X24+15,V2+151 ,F2:X3=X2: YZ=Y2: IFTN=1AND 
(ABS (Z2) >PIORT2=D2} THENIFSC<LETTHENSCSSCH :PLAY"T2SSOLABF"ELSEFSOELSEIFZ THENPLA 
Y"T1oooia" ; 
530 IFS2 THENFLAY"T25503AB" 
3970 IFX=X2 ANDY=YZ THENYV=1:G0SUB1380:G0T0580 ELSEFORZI=0T02: IFMXIZ1)=X THENIFMY 
(Zi}=Y THENGOSUBFOO 
400 IFMX(Z1)I=X2 THENIFMYIZII=YZ THENGOSUBSASO 
. 410 NEXT:GOTOZESO 
420 IFT>D THEN4SOELSE T=T+1:7=S(L,T}:56=56N (2) :V=-V:BOSUB7 10: IFL{>1ANDWW=O THENT 
Y=2 
430 GOTO3SSO | 
aan IFT2<D2 THENUV=-UV: IFUV=-1THENSSOELSES7O ELSE T2=T2-1:72=511L2,12)25K=56N (72) 
=-V2: 6010340 7 
256 UY=0: IFH=1THENW=SEN (D2-D-1) = IFW  THENIFW-—LANDD> I THENW=-BEISEIFDSSTHENW=B 
JONI/ OL 1985 











Ag Mn I DD = 


je 


aan 


(. 
Fast 


Fu 


ee ee he he: äh EAN EEE MEN CE 


| 


_ gr 
| 


JUNT/AULI 1985 


._ EEE mm u — -_—— Tr 


SESS0 


Up u 





440 IFHZSTHENH=H+1:0NLC+1 GOTO470,490,510 ,5350EL 
470 X=X-B: IFH<STHENY=Y-U 

480 GOTOS40 

490 Y=Y-B: IFHSSTHENK=Ä+U 

500 GOTOS40O 

SIG K=X+B: IFH{STHENY=Y+W 

s>20 GOTOS40 

E50 Y=Y+B: IFH{STHENK=SKÄ-W 

540 PUT(X1,Yi)-(X1i+15,Y1+15) „L:6GOT0350 

550 IFL=SSTHENL=dELSEL=L+1 

S5ä0 D=D+W/4:H=1:T=D: Z=5iL,T):SG=S6N (ZI: 605UB710: 7Z=2: IFP(L,„D/Z3 =1 THENKW=1ELSEWW= 


570 GOTO330 
580 TN=0: H2=H?+1: IFH2>STHENA4OELSEIFH2<STHENASJOYSTK (0) :B=J0OYSTK (1) ELSER=10:B=1 


590 T2=0:0N L2+1 GDT0600,810,620,650 

400 Yz=Y2-8:52=- (A=0ANDD2£6) +(A=&3ANDD2>1) :D2=D2+2452: X2=X2-24452: BG0T0370 

610 K2=X2+8:52=- (B=S0ANDD2Z&) + 1B=&5ANDD2>1) : D2=D2+52#2: Y2=Y2-24#52: 6070370 

20 Yo=Y2+B:82=- (A=0ANDDZ>1)+ (A=635ANDD2<6) : D2=D2-52#2:X2=X2-24#52: G0T0370 

&30 K2=%X2-B:52=- (B=OANDD2>1)+ (B=635ANDD2<4) : D2=D2-52#2: Y2=Y2-24#52: 6010370 

640 IFL2=0THENL2=SELSEL2=L2-1 

450 H2=1:T2-D2: 72=5(L2,1T2) :5K=S6N{Z2): IFP(L2, (D2-1) /23=OTHENP (L2, (02-13 /2)=1: TN= 


560. GOTOSSO 

5870 ’SPIELER VERLIERT 

680. PUT (X, YI—-(X+15,Y+15) „F1:FORA=3S1TOOSTER-4: PLAY"V"+STREAY+MESNEXTASPLAY"VS1N: 
ECLS:PRINT:PRINTTAB (7) "*#*PECH GEHABT###":PRINT=PRINT"DU HAST"SC"KRISTALLE" ,„„"BE 
SAMMELT „BEVOR":PRINT:PRINTY# (WV)} :C5=CS+SC 

490 PLAY"TLOOSDABFOLADLE": PRINT: :60SUB1 150: G0SUB1330 

700 FORA1=OTOS: FORAZ=OTO2Z:PF {Ai „A2) =0:NEXTAZ,A1:FORA=STOB:FOCOPYA TOR-4: NEXT: IFVES 
STHENVE=VE+1:G0T0300 ELSE1050 

710 IFV=1THENEI=X+16#SG:E2=Y ELSEEI=X:EZ=Y+14#SB 

720 GET(E1,E2I- (E1415,E2+15) „L1I:RETURN 

730 TY=TY-1:P=D*12:0NL+1 GOTO740,10,750,750 

740 PUT (240-F,176-P) -(255-P ,1F91-P} „LBrRETURN 

750 PUT {P,PI-{P+15,P+15) „LD: RETURN 

760 PUT t240-P ,PI-1255-P,P+15) „LAzRETURN 

+70 MXLZII=RND (II #24:MY (ZI) SAND (2) #24: IFRND (ZI =1THENMX (Zi) =240-MXtZi) 

780 IFRND (2) =1THENMYZII=176-MY (ZI) 

790 1FABSIMX(Z1I-X2) =BORABS (MY (Z1)-Y2)=8THEN?7O 

3006 IFABSCMXCZ1I-XI=BORABS (MY (ZLI-YI=BTHEN7FO 

810 IFZ1<>OTHENIFMX L1I=MX ZI ANDMY (LI =MY (2) THENT7O 

920 IFZ1£{>1THENIFNMX (0) =MX (2) ANDMY tO)=MY (23 THEN77O 

870 IFZ1£ >2THENIFNMX (O)=MX 1) ANDMY (0) =MY CL} THENT7O 

840 IFMX(Z1I=X ANDMY(Z1)=Y THEN77O 

850 IFMXtZ1II=X2 ANDMYıZi)=Y2 THEN77O 

950 IFZULCZ1) THENPUT (MX (Z1) „MYLZIII-MKLZII+1S,MY(ZI1I+15I ,EK ELSEPUTIMX (ZI) „MiYiZ 
1)+6)-(MK(Z1)+15,MY(Z1)+15) ,EE 

370 RETURN 

380 IFZUCZ1I=OTHENPLAY"OSTIOLABFEATZSS" : NA=NT:GOSUBFAOELSEPLAY"DZTZOBACF" : GOSUB? 
50 

870 GOSUB770:RETURN 

900 PLAY" TSOO2LDHFGAT2SS": ZULZ1I=1:G0SUB770: RETURN 

910 XZ=EN#4+122: LINE (XZ,92) -(XZ, 98) „PRESET: TIMER=0: IFEN>OTHENEN-EN-1ELSEVV=2: M&= 
"T1O0LABC" :GOTOABO 

920 RETURN 

930 'ENERGIEANZEIGE 

340 EM=EN:EN=EN+3: IFEN>LOTHENEN=10 

sen XT-EM#A+122:FORPS=XZ TOXZ+4# (EN-EMISTEP4:LINE (PS,92)- (PS,98) „PSET=:NEXT:RETUR 
N 

750 ZUZ1I=0:RETURN 

970 "SPIELER GEWINNT | 

980 FORA=0T0S5:SCREENI ,1:PLAY"T10D1A":SCREENI „O:PLAY"TSDZD":NEXTA 

990 ELS:PRINT:FRINTTAB(1O}"S U P E R":PRINT 

1000 IF SP=OTHENSP=1:PRINT"DIR IST ES GELUNGEN ALLE KRIS-":PRINT:PRINT"TALLE EIN 
ZUSAMMELN! | !":PRINT+PRINT"DAFUER WIRST DU ZUM OBERSMILEY":PRINT:PRINT"ERNANNTE 
"+ GOSUBISBOSCLS:PRINTSPRINT"UND WEITER GEHT'S!!!"zPRINT:PRINT"ABER NUN WIRD'S SC 
WIERIGER! It" 

1010 IFSP>1 THENPRINT"DU BIST PHANTASTISCH! !!TI"EPRINT:PRINT"ABER- ... ":PRINT:FRI 
NT"ES WIRD NOCH SCWIERIGER! I!" 

1020 TE=TE#.7:C5=CS+5[C:NT=NT+3:VE=VE-2 

1030 GOSUB1330: 6010700 

1940 STOP 

1050 "WERTUNG 

1060 IFCS{=SC (5) THEN11SOELSESI=0: FORA=0T04: IFCS<=SC A) THENSI=SI+L:NERT 
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_ + J2PRINTE112+A#32,5C 1A): NEXTA 


| ' 1110 PRINT:PRINT"EIN NEUES SPIEL ? tJ/N}" 9 
| 1120 A$=INKEYS£: IFAt=""THENI1120ELSEIFAF="I"THENZFOELSEIFAF="N"THENPRINT"SCHADE.." | been 
a | :STOF ELSE1i120 oe 
+ 1130 CLS:PRINT@95,"DU HAST INSGESAMT"CS"KRISTALLE":PRINTEFRINT"GESAMMELT!"SPRINT ı re 

\ =PRINT"DAS REICHT FÜUER DIE WERTUNG": PRINT:PRINT"LEIDER NICHT AUS!" ii 

@ ı 1140 PRINT:PRINT: GOSUB1330: 60701100 8 u 
1150 FORA=0T0200: NEXTA: IFVE<STHENPRINTTAB (4) "DU HAST NOCH"3-VE"SMILEY"; : IFVE<ZTH = 

1160 RETURN ” 

ı 1170 "SPIELANLEITUNG | Fr 

© ! 1180 CLS4:PRINT@F5,"":PRINT@ZE8,"":PRINT@389,,"SPIELANLEITUNG (J/NI ?7"5 ‚@ 5 
1170 A$=INKEY$: IFA$=""THENGOSUB1450:60T01190 ELSEIFAF<>"J"THENRETURN | Er 


, 1200 ELS:PRINT@S2,"AUF DEM PLANETEN SMILE GIBT ES","2 ARTEN VON BEWOHNERN:","DIE |; _ 7° 
w GUTEN SMILEYS UND DIE BOESENSMILEYS,DIE SICH GANZ UND GAR NICHT VERTRÄGEN!" ı m 


£1, 1070 FORKK=4TOSI STEP-1:5C (KK+1)=SC IKK) SCH IKK+1 I SSCHIKKI NEXT KK:SCISII=CS 
- „4080 ELS:PRINT@&44,"GERATULIERE,SIE SIND IN DER": FRINT:PRINTTAB (8) "WERTUNG!!!" | Fe 
' 1090 FRINT:PRINT"BITTE GEBEN SIE IHREN NAMEN EIN":PRINT:PRINTTABt12)5:INPUTSCHS , 5 


1100 CLS:PRINT,,„TABt12) "nertung": FORA=0T0S: PRINTEFE+HA#3Z ,Ar1:PRINT@EIF+Ar32,SCHtA Kr 


12109 FRINT"DIE GUTEN SMILEYS SUCHEN", "KRISTALLE UND LEBEN VON DEREN VERKAUF!"  ; Blech 


1250 GOSUB1330 


© | 1240 CLS:PRINT,,"DU STEUERST EINEN GUTEN SMILEY UND DEINE AUFGABE IST ES SOVIEL |, © © 


| 

ie , ENPRINT"S"ELSEPRINT 
| 

| 

| 

| 

| 

| EKRISTALLE ZU SAMMELN WIE MOESLICH!" 
| 


i220 FRINT"DIE BOESEN SMILEYS SIND","KANNIBALEN UND FRESSEN DIE GUTENSHMILEYS AUF re 


_ 1250 PRINT"DU tLAECHELNDES GESICHT)", "BEFINDEST DICH IMMER IN EINEM DER VIERG ı R= se: 
= ı BENBE!","DU KANNST BEI EINER UNTER-","BRECHUNG DEN GANG WECHSELN!" - 
1250 PRINT"DIES MACHST DU MITHILFE DES RECHTEN JOYSTICKS!" | Iren 


in | 1270 GOSUB1530 


1280 CLS:PRINT"GIB ACHT!!!! EIN BOESER SMILEY KOMMT DIR ENTGEGEN UND VERSUCHTD ı 


ICH ZU FRESSEN!" 


[ 

f 

| ® : 12790 PRINT"IN DER MITTE WIRD ANGEZEIGT WIE-VIEL ENERGIE DU NOCH HAST!","INDENG ı ® 
L 


AENGEN LIEGEN KUCHEN DIEDEINE ENERGIE WIEDER ERHOEHEN!' WENN EIN BOESER SMILEY A | Er 
| _ 4 UF EINENKUCHEN TRIFFT,ENSTEHT GIFT" ,"(TOTENKOPF}.DU MUSST DIESES GIFT"; a 
| # ı 1300 PRINT"UEBERGEHEN,DAMIT EIN NEUER", "KUCHEN ENTSTEHT!" 0 
| 1310 PRINT"DAS SPIEL BEGINNT!!tETIM | Kar 
© , 1320 GOSUB1330:RETURN | '@ 5 
| + 1330 PRINT:PRINTTAB (BI "KNOPF DRUECKEN" | gie 
| ' 1340 PP=PEEK (65280) : IFPP=12&0RPP=2S54THENFORA=0T0200:NEXTA: RETURNELSE1340 a 
| ® ı 1350 ELSO:PRINT@E232,"viel"+CHR£ (128) +"glueck"; :PLAY"TS02DT2A":SCREENI1,0:FORA=0T0 'ı @ 
| ' 2000: NEXTA: RETURN | ben 
|. ı 1360 M="T6002BF6DEA": RETURN au 
ı ® | 1370 "BILD VOM "OBERSMILEY‘ '” 5 
| 13580 COLOR4,1:PCLS3 | = 
| & | 1390 FORA=40T0160STEP10:CIRLLE (128,96) ;A,Z:NEXTA > 5 
| 1400 CIRCLE (128,96) ,70,1,1. 2: CIRCLE (1728,96) ,62,1,1.3:PAINTt128,15),1,1:PAINT (128 BE 
| Fa) ,z,1 a 
| ’ ı  ; 


70,353 


1410 CIRCLE(108,70) ,12,3,1.5:CIRCLEt1489,70) ,12,3,1:5:PAINT (108,70) „3,3:PAINT(148 '! SE 


1420 CIRCLE (108,70) ,B,1:CIRCLE (148,70) ‚8,1: PAINT (108,70) ,1,1:PAINT(148,70) ,1,1 m 


” | 41430 CIRCLE (128,110) ,30,1,.5,0,.5:CIRLCLE (128,110) ,30,1,1.5,0,.5:PAINT(128, 130) ,4 ı =; 
1 Fat: 

i ! . - i ' " UT. 

| © :; 1440 COLOR2,4 | % | BE 
| 14350 SCREEN ,„0:FORA=OTO1000: NEXTA:FORA=31TDOSTEP-8- PLAY"V"+STRELAI+"O"+STRELINTE | ee 
. ı A/B+1))+"TLOCDABADDBAVS1":NEXTA:RETURN oa 5 
” ) 4450 PRINT@128,; '@ 5 


1470 FORA=60TD4: SMF (A)=RIGCHTF (SMF CA} „S1I+LEFTEISME CA} „II :NEXTA:FRINTSMEIOISMELLIS “r 


u | MELIDIEMFITISMFLH) 
| 1480 RETURN 


Human Engineered Software, 150 North Hill Drive, Brisbane, CA 94005 
800-227-6703 Lin California 800-632-7979) Dept. G20 
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VG 8020 


Yoll-Tastatur ermögli icht 
ables Aı 





Nach der arkeinflreng des ersten 
Philips MSX Home-Computers im 
Herbst 1984 folgt nun ein komfortabel 
auspestalleles zweites Home-Compu- 
ter-Svsiem: YG 5020. Eine Voll-Tasta- 
tur, die einschließlich Cursor-Kontroll- 
tasten und 10 Funktionstasten insee- 
sami 73 Tasten umlaßt. erlaubt mühe- 
loses Arbeiten wie auf einer professio- 
nellen Schreibmaschinentastatur, 





Die charakteristischen Daten und Aus- 

staltungsmerkmale des YG 8020: 

- 20 k RAM-Kapazıtät (einschließlich 
I6 k Video RAM) 

- 32k MSX Basic ROM 

— Eingebautes Drucker-Interläce 

— Eingebauies Netzteil 

—- Verbesseries Daten-Recorder-Inter- 
face, das auch bei falscher Polarıtät 
der Kabel/’Recorder-Kombination 
einwandfrei arbeitet 

- Anschlüsse für Joy-Stucks (Handreg- 
ler) auf der Vorderseite der Konsole. 


/X-Spectrum: Mit Maschinen- 


Philips MSX 
Home-Computer 













Das leistungsstarke, ınleerierie MSX 
Basıc ermöglicht dem Benutzer ernst- 
haftes, schnell zum Ziel führendes Pro- 
erammieren. Es können l6 Farben und 
32 Sprites dargestellt werden. 254 un- 
terschiedliche Zeichen und Symbole 
stehen zur Verfügung. Mit dem 
Musik dreistimmig Über h2 Oktaven 
programmierbar. 

Technische Daten VG 8 


Microprozessor: 

Z80A mit 3,6 MHz Taktfrequenz 
Speicher: 

sk RAM einschließlich 16 k Video 
RAM 32k ROM 


A]: 








Schnittstellen: 
HRF-Ausgang #, FS-Gerät, Yıdeo-Aus- 
gang z, Monitor, Centroniesz. Drucker, 
Daten-Cassetten-Recorder, Handreg- 
ler, 

> Modul-Steckplätze (2. B. für Floppyv- 
Disc, RAM-Erweiterung, RS 232) 


Zeichensatz: | 
254 alphanumerische und graphische 
Zeichen 


Tastalur: 

professionelle Schreibmaschinenasta- 
tur. mıl 73 Tasten einschließlich Eur- 
sor-Kontrolltasten und LÜ Funktionsta- 
sten 


sprache zum Bildschirm 





Dieser Kurs setzt voraus, daß die 
Grundzüge der Z SU-Assemblerpro- 
erammierung bekanni sind. 


Wer schon einmal versucht hat, Spiele 
oder andere Programme ın Maschinen- 
sprache zu programmieren, der wird 
schnell feststellen. daß der Bildspeicher 
des Spectrum etwas merkwürdig aufee- 
baut ist. Wer zum Beispiel vorher mit 
einem ZX 81 gearbeitet hat, wird sich 
| jetzt fragen, wie er eiwas auf'dem Bild- 
ı schirm anzeigen kann (Objekte, Gra- 
phik, Zahlen usw.). Die dazu nötigen 
Kenninisse zu vermitteln. das ist das 
Ziel dieses Kurses. 
Lm etwas auf den Bildschirm zu 
bringen, könnte man jetzu aus Zeile, 
Spalte und Punktreihe die Bildschirm- 
adresse errechnen. Keine Angsı, das'ha- 
| ben wir nıcht vor. Denn wer sıch inten- 
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siv mit den ROM des Spectrum be- 
laßt, finder dor alles, was er braucht. 


Nehmen wir also an, daß der Buchstabe 
A angezeigt werden soll. Wie gehen wir 
vor? Dazu muß man wissen, daß der 
Spectrum die Möglichkeit hat, mit ver- 
schiedenen Datenkanälen zu arbeiten. 
Die Kanalnummer des Bildschirms ist 
2, dies müssen wir dem Computer vor 
der Ausführung eines MC-Programmes 
mitteilen, Aber wie? Ganz einfach, Es 
ist eine Routine vorhanden, die das 
Setzen beliebiger Kanalnummern er- 
laubt. 

bei I60IH 


Diese Routine steht 


Ss633dez. 


Bei Aufrufmuß das Register A mıt dem 
wert des Kanals geladen sein. in die- 


sem Falle mit 2. Also lautet die Befehls- 
folee, um den Bıldkanal zu setzen: 
3E02 LBA2 

CDoOl 16 CALL 1601 


Von jeizt an erfolgen alle Ausgaben auf 
dem Bildschirm. [m nun das A aufden 
Schirm zu bringen, brauchen wır eine 
andere Routine, Diese wırd mit einem 
RST-Befehl aufgerufen und steht bei 
10H löder. 

Im diese Routine benutzen zu können, 
muß Register A mit dem ASCl-Code 
des Zeichens geladen werden. im Falle 
des A mit dem Wert 65. 

Demnach lautet die Fortsetzung unse- 
res Kurzproerammes: 


IE 41 LDbAA4I 
[57 RST 10 
C BET 


Fortsetzung S. 77 
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Thomas Winzer 





omecomputer- Bücherkiste 


Der Weg zum Computer 


Eine aktuelle Darstellung der Home- und Personalcomputer 
für den modernen Menschen 


Obwohl Computer aus unserem All- 
tagsieben nıcht mehr wegzudenken 
sind, hat ein großer Teil der Bevölke- 
rung immer noch Angst und Vorurteile 
gegenüber der neuen Technologie. Das 
haisıch gerade im letzten Jahr deutlich 
gezeigt. indem Fragen zu den Themen 
Datenschutz, Computer als Jobkiller, 
„Großer Bruder“ usw. vor allem ın den 
Medien heiß dıskulierr wurden. Das 
Ziel des vorliegenden Buches ist es da- 
her. dem Leser einen kleinen Einblick 
ın die Thematik zu geben und ihm die 
Scheu vor den Maschinen zu nehmen. 
Dabei kommi es dem Autor nıcht auf 
technische Details an. es geht ihm viel- 
mehr darum. dıe Eınsatz- und Anwen- 
dungsmörlichkeiten moderner Mikro- 
computer aufzuzeigen. Seiner Meinung 
nach liest die Computerangst darin be- 
eründeti, daß aufdiesem Gebiet ein In- 
lormationsdefizit besteht; dıe Weiter- 
gabe des Wissens konnte einfach nicht 
mit der schnellen Entwicklung mitihal- 


E 





ur 


ten, In den zwölf Kapıteln des Buches 
findet insbesondere der Einsteiger zahl- 
reiche Informationen, die deutlich ma- 
chen, daß man mit einem Computer 
sehr leicht umgehen kann und kein 
technisches Genie sein muß. um diese 
gecheimnisvolle Maschine in Hobby 
und Berufsinnvoll einzusetzen. Die un- 
terschiedlichen Arten und Systeme wie 
Taschencomputer, Personalcomputer, 
Portables und Small-Business-Systeme 
werden dargestellt und mit ihrem Für 
und Wider erklärt, so daß dieses Buch 
auch als Enischeidungshilfe für den 
Kauf eines Computers betrachtet wer- 
den kann. Nach der Lektüre sind Sic 
kompeient und können mitreden. Ihre 
eigenen Wünsche an den künftigen 
Computer werden klar definiert. was zu 
einer überlegten und richtigen Kaufent- 
scheidung führt. 


Franzis Verlag, München 


ISBN 3-7723-7731-9 





Softwareführer ’°85 für Homecomputer 
Alles über Spiele, Lernprogramme und berufliche Anwendungen 


Zwei Monate nach dem Erscheinen des 
„Soflwareführers '55 für Personal- 
Computer“ bringt die Rossipaul Ver- 
lags GmbH in München die umfässen- 
de Soliwaredokumentation für Home- 
Compuier-Fans unter dem Titel 
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„Softwareführer "35 für Home-Compu- 
ter" auf den Markı. 


Zum sensationellen Preis von nur DM 
12,80 liegt damit auch für den Kreis der 
Home-Computer-Anwender ein um- 


fangreiches Verzeichnis des akıuellen 
Sollwareangebotes vor. 

Enisprechend dem Untertitel „Alles 
über Spiele, Lernprogramme, berulli- 
che Anwendungen“ enthält der Sollt- 
warelführer für Home-Computer über 
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Computer- 
Fieber 
Vorsicht, Computer- 
fieber erfaßt die Welt! 


Zuerst waren sie ein Hobby, harmlos 
wie Spielzeugeisenbahnen oder Briel- 
markensammeln. Dann wurde eine 
Mode daraus wie Skatcboards oder Pri- 
vatlunk. Heute sind sic eine Digitalseu- 
che erster Ordnung, Man braucht gar 
nicht im Silicon Valley zu leben, um 
das zu merken. Ein Blick in jeden Ort 
unseres Landes genügt, 

Lesen Sie dieses Buch und Sie wissen 
wie Sie diese leichte Form des digitalı- 
sierıen Wahnsinns vermeiden. Lesen 
Sie dieses Buch und Sie lernen. gelähr- 
los auf den Mikrocomputer abzulah- 


= 


ren. Dieses Buch zeigt Ihnen, was cin 
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1300 Programmbeschreibungen mit 
Preisangaben, Bezugsquellen und vıe- 
len Bildschirmabbildungen sowie ein 
alphabetisches Frogramm- und Her- 
stellerverzeichnis, das jedem Benutzer 
dieses Kompendiums das Auffinden 
spezieller Programme ermöglicht. 


Die beiden Softwareführer des Rossi- 
paul Verlages für „Personal-Compuler” 
und „Home-Computer“ werden künl- 
tig jährlich in aktualisierter Form er- 
scheinen und damit jedem Anwender 
die so. dringend benötigte Maärkttrans- 
parenz verschafien. 

Dietmar Eirich, der bekannie Fach- 
journalist und Autor zahlreicher Com- 
puterblicher, zeichnet für die sachge- 
rechte Gliederung und die umfangrei- 
chen redaktionellen Einführungstexte 
in die Home-Computer-Software und 
ihre Anwendung verantwortlich. 
„Softwareführer '85 für Home-Compu- 
ter“, Dr, Lothar Rossipaul Verlag, 
München 1985. Taschenbuchlormat, 
420 5., zahlr. Abb;, Brosch., DM 12,50. 
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Grundkurs 
in Basic 
von Ulrich Stiröbel 


Das Buch ist für den Informatik-Unter- 
richt an Schulen und Volkshochschulen 
geschrieben und wendet sich daher ın 
der Hauptsache an Lehrer und Schüler. 
Es ıst jedoch auch zum Selbststudium 
geeignet, In diesem Buch finden Sie 
eine systematische Einführung ın dıe 
Frogrammiersprache BASIC. In klei- 
nen Schritten werden die wichtigsten 
Fachbegriffe und Programmierbelehle 
dargestellt. Die Themen dieses Buches 
sind: einfache Datenstruktur, Kontroll- 
strukiuren, eindimensionale Felder, 
Sortieralgorıthmen. 

Das Lehrbegleitheft bietet Lösungsskiz- 
zen zu den Übungen, Anregungen zu 
weiteren Aufgabenstellungen, Litera- 
turhinweise und spezielle Bemerkun- 
gen und Anmerkungen. 

Das Buch ist ab Mitte Aprıl im Buch- 
und Computerhandel sowie in Kaul- 
häusern erhältlich, Das ebenfalls beilıe- 
gende Lehrerbegleuheft ist nur für Leh- 
rer gegen Vorlage einer Schulbescheinı- 
gung direkt beim Verlag zu beziehen. 
Sybex-Verlaeg GmbH, Düsseldorf, 
ISBN 3-88745-058-2 

ISBN 3-88745-091-4 (Lehrerbegleit- 
heit) 


Wıkrocomputer ıst. was er kann und 
wie er von Ihnen programmiert werden 
will. 

Per Autor führt Sie in die Geheimnisse 
der Computerei ein und deckt zugleich 
ein paar Fehlentwicklungen auf - 
Wahrheiten, die längst hätten gesagt 
werden müssen. Charles Platt tut es 
kompetent und konsequent. Aber hier 
ward nicht verbissen über das Ihema 
geschrieben, sondern die Probleme und 
Fragen werden witzig verpackt, 

Es ist Zeit — lassen Sie sıch auf den 
Computer ein. Aber lassen Sie sich 
nicht vom Computer-Fieber erwischen, 
Heyne Computer Bücher, Alünchen, 
ISEN 3-453-47051-6, Preis 12,50 DM 
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Der AB-Compinercelub für Apple ent- 
stand zus verschiedenen Schülern in 
Essen. die untereinander Erlahrungen 
susizsschen wollten. Nun soll der Club 
su5 esssmtie Bundesgebiet erweitert 
erden {wenn möglıch, natürlıch auch 
nach Österreich und Schweiz). Es gibt 
=ın Clubinio, das unregelmäßig er- 
scheint (je nachdem, wieviel die Mit- 
glieder zum Info beitragen). In der Re- 
ge] ist das aber alle fünf bis sechs Wo- 
chen. Das Info beinhaltet natürlich 
Tıps + Tricks, Sofiwarebeschreibung, 
Hardwarelests, Zeilschriltentps, 
manchmal Buchtips. 

Die Softwarebibliothek ıst der Mittel- 
punkt unseres Clubs, Ste besteht aus 


Programmen der Mitglieder. Im Mo- 
ment ist sie zwar noch etwas dürftig, 
das sollte sıch aber in Zukunii bessern. 
Jedes Mitglied bekommt alle fünf Mo- 
nate neun Programmarken, dıe er gegen 
Programme eintauschen kann. Schickt 
uns ein Mitglied sein Programm (es 
sollte natürlıch nicht irgendein Quaisch 
sein) mit einer kurzen Beschreibung, so 
kann er sıch ein anderes Programm aus 
der Bibliothek aussuchen (ohne eine 
Programmarke beigelegt zu haben), 

Wir meinen, daß dies eine faire Rege- 
lung ist, und der Preis für die Mitelied- 
schaft soll auch möglichst niedrig ge- 
halten werden. 2,— DM kostet der Bei- 


trag im Monat, Wir meinen, daß sich 





Der ABC-Computerclub 


dies auch jemand leisten kann, der 
sonst viel Geld ın sein Hobby, den 
Computer, steckt, 

Übrigens: Wir stehen immer für irgend- 
welche Fragen bereit. 

Gegen Rückporto gibt es das Mini-Inio 
und das Anmeldeformular. Unsere 
Adresse: 


ABU-Lomputerclub 
Dirk Bernhardt 

Am Pothstück 1 
4300 Essen 1 

Tel: D201 7711844 


Wir wünschen weiterhin: Happy Com- 
puting! 





Auf zum Abenteuer in die freie 


Natur 


Der Comusclus lädt zu einem Adventure 1985 


Nach dem großen Erfolg bei der Pre- 
miere im Vorjahr hat sich der Comus- 
clus entschlossen, auch heuer wieder 
eine Veranstaltung unter dem Moto 
„Abenteuer 1985“ auszurichten, Neben 
einigen bewährten Einzelveranstaltun- 
gen gibt es aber auch einige Neuerun- 
gen. Da wir dazu beitragen wollen, 
‘Schwierigkeiten, die durch das neue 
Haustier Computer in den Familien 
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entstanden sind, zu beseitigen, laden 
wir die Familienangehöri gen vom Baby 
bis zur Großmama ein, für die ein eige- 
nes Programm läuft. 

Der Ort der Veranstaltung ist Neu- 
markı am Wallersee in Österreich. Die 
Veranstaltung findet am Samstag, dem 
7. September 1985 (bei Regen am 15. 
September), um 9,00 Uhr statt. Das 
Ende ist offen. 

Die Veranstalter haben sich ein bunies 
Familienprogramm (Streichelzoo, 
Schatzsuche, Kinderspielplatz, Unter- 
haltungsprogramme- usw,) ausgedacht, 
Daneben finden natürlich auch wieder 
bewährte Einzelveranstaltungen wie 


Postfach 128 
A-5033 Salzburg 


die Rätselfahrt, eine Traktorrallye, ein 
Zeitadventure und vieles mehr statt. 
Als Abschluß des Adventure gibt es 
gegen 21 Uhr wieder ein großes Lager- 
feuer mit Siegerehrung und Lagerfeuer- 
romaäntik. 
Verhungern und verdursten wird: bei 
dieser Veranstaltung niemand. Wer 
über Nacht bleiben möchte, findet ge- 
nügend Platz zum Kampieren. 
Wir freuen uns auf’den Besuch unserer 
Klubmitglieder, solche ‚die es werden 
wollen, Besucher von anderen Klubs 
und Institutionen und alle anderen 
Teilnehmer. 


Anmeldungen und Kontakte an: 


Computer User Club Salzburg 
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Fortsetzung von 5. 73 

[ieses kurze Programm können Sıe an 
cıne beliebige Stelle im RAM setzen. 
nach dem Start erscheint das A an der 
letzten PRINT-Posilion. 

Nun. wollen wir das A aber an eine 
bestimmte Stelle des Bildschirms set- 
zen. auch dalür gibl es cın Programm 
ım ROM. 

Es beiindet sich an der Adresse DDD4YH 
354Sdez und funktioniert wie die 
FRINT AT- Funktion. Die Register B 
und © sind mit den Koordinaten zu 
Inden. Aber Vorsicht! Diese Werte ent- 


sprechen nicht der üblichen Numerie- 
rung! 24 ist die oberste, | dıe unterste 
Zeile. Dieser Wert wird in das B-Regi- 
ster geladen, Register C enthält die 
Spaltennummer, wobei 32 die lınke 
und 2 die rechte Kante bezeichnet. 
Um also das A an der Position 0,0 
erscheinen zu lassen, ist folgendes Pro- 
gramm nötig: 


3EU2 LDA2 
CDOI 16 CALL 1601 
06 18 LDB1S 

DE 21 LId 21 

CO DBICD CALLODDI 


... wir helfen Ihnen! 


Sie erhalten von uns innerhalb 1 Woche den kompletten Datenträger. Eine Programm- 
übersicht finden Sie auf den Seiten 78 und 79. 






406.43 oder 4 06 93. 


Bitte Bestellcoupon ausfüllen und einsenden an: Tronic-Verlag, 
Postfach 41, 3444 \Nehretal 1. Oder einfach telefonisch bestellen: 056 51 / 


Bestellcoupon für Software-Service 


Alle aufgeführten Programme können als Diskette bzw. Kassette direkt beim Verlag bestellt werden. 
Die.noiwendigen Angaben für Ihre Bestellung entnehmen Sie bitte aus unseren Preislisten. 


Bitte liefern Sie mir: 


7) Kassette für 


Bemellanı 


[] Diskette für 


Bstch-Nr. 


zum Gesamtpreis von 


Die Zustellung erfolgt: 


innerhalb von 1L Woche an: 


HaimeVormame 


PLTFckt: 
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gegen Nachnahme DI 
+ Versandkosten 


Sir, Nr; 


"Dalum, Unterschrifi 


3E 4] ILBAA4l 
D7 RST I0 
CH RET 


Nach Ausführung: des Programms er- 
scheint das A an Position 0,0, und die 
PRINT- Position, wo das nächste Zei- 
chen gedruckt werden würde, ıst UL, 
Das Programm läuft folgendermaßen 
ab: 

Die ersten beiden Zeilen setzen dıe Ka- 
nalnummer. Die nächsten 3 Zeilen set- 
zen die Koordinaten. Die 3 Zeilen am 
Schluß bewirken die Ausgabe des Zei- 
chens und den Rücksprung zum Baäsıc. 


Wenn Sie keine Zeit haben, alle 
Programme einzulippen.... 













-2 Anzahl 
UF Anzahl 
DM 


oder gegenVorkasse L] 
hei Auslandslieferungen 


I 
een] 
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i = | Ni 
Programm DMI/’Kassette DM/ Diskette Bestell-Nr. 
ll i Reactor 
FNIKITESIKUNGT Concentration 17,50 33,50 HG/C-1 
Palenbank 
Waärlords 
Caverns ol Death 14,50 19,50 HYC-2 
Alien-Destroyer mm Ulm | IM 
Tuell 24.50 29,50 HCE-3 
Ocean Game ||, Sa N 33:20 





Tennis HOC-4 








Labyrınth 

Data-Cenerator 14.50 19,50 HCrA-=] 
Maskengenerator 

Suchsel 
Hello 14.50 19,50 HÜA-2 
AS„ II-Dum per 

Knobeln 

Mıssilie Attack 14.50 I 19,50 HCA-3 


Tyros I0- 14,50 HC/A-4 




















Mlanice 
Fünf gewinnt 14,50 19,50 HC/H-1 
Atlantıs mu 
Cosmische Arche 14.50 19,50 HC/I-2 
Castle of Confusion mi 
Magic Fire 14,50 19,50 HC/I-3 
Sprinter "84 Fr 19,50 HC/I-4 
cc” a L, u Inn m zu ig) N‘ il En ü 
L) \ iu A ıicı La w A _ U. pi A! W ! 4 
Fallschirmspringer | D- - HC/SR-3 
Geisterschloß i | g- a HC/SR-4 
nRACQCWY 
LT ] L , Fa ® 
Solarıs - - HCM-4 





#8 MHOMECOMPUTER JuNt/AULE 1985 


Programm DM/Kassette DAWL/Diskette Bestell-Nr. 




















zyklo 

Geldsammler ia | 11,50 - HE/WVEI 
Star Wars IN 
Punkteiresser | II 14.50 = HEYWV-? 
Catch ıhe Fish l 
M ister Jump IN 14,50 - FICHV-3 
(ihosts’ Eggs num 

Fox-Huni 14.50 a HEW:A 














L.ift-Bär En 

Eile srl Luftkampf 14,50 19.50 FHCYT-1 
Blue-Bußs f 
Perlentaucher [4.50 19,50 HYVT-2 
Coal-Miner MER I 
Meteor 17.50 23,50 HCVT-3 
Intra 





Santa Maria 
Tarzan 14,50) 19,50 HC/T-4 








Plong 13,50 al - HC/S-] 
U-Jäger BEER 
Rıtter Kunibert f! 14,50 - FICYS-2 





Mad Space 

Milli, die Milbe 14,50 m - HC/S-3 
Mr. Pacman 

Pooyan 14.50 = HC/S=4 








F ä dl & 
DB 
Space-Fire | 10,- _ HC/Z-2 





Steinschlag . DE i! Deren = HC/Z-3 





Cave-Flight 10,- E HC/Z-4 








Businessgrafik 14 - HCD-? 
SENSO I0,- : = 5 HOrD-3 
Smiley 10,- _ HU/D-4 





JUNI/JULI 1985 HOMECOMPUTER #9 


Ihr Erfolgsprogramm - 
aus dem Tronic-Verlag 


Error CSompute enip Compute mit 


ei monatlich 
SSCOMMODORE& SCHNEIDER | Format Au 
6/ Yo-54, VC-20, C-16, CPC-464 ec 
85 


| : 2,80 DM 
gg irn Br Bere ni Bm nd dB ie Bi) 





— een Tr ey 22"23& ee Te ee ee u | 












un ae ren 







Aktuell #44 Aktuell ++ Aktuell + Aktuell 
j Aa a nn Fat ie Ihn, C nt er 

Hannover- Preazaeeeel Matrix Prinler 

Nesse 85 |" SIE 










f y | ku | U ee 
I Spiele 
Art Spiele- 

Fa N ten jetzt auch über den 

ne nn A Zeitschriftenhandel 


Neues A a TEE een 
rd er in Ir 5 Er, } 4 ah" ü A a Br 3 
u ' 1 Ah, TE A h bh“ 6 den 1 Tall 

nn“ I Ba. r Be a nah h } 1 

















Aevrlaws 
Tips & Tricks 
Buckermarki 


Inies 





CPU 

monatlich we 
Format As Iö Hr | a u 
5,50 DM Spielprogramme u 
ee 
| 5000,- DM 
| Alesen-bewinnchance vum $oftware-; 













| Computronic 
zweimonatlich 
Formal Ad 
6,50 DM 


Homecomputer 
Ayeimaonathch 
Format 44 

6,- DM 


Spiele-Kassetten: 
Commodere 54 
VIC-20, Aları, 

T1-29, 2%-Specirum, 
Laser 2001, 
Schneider CPC 464 
Je 19,90 DM 


Spitzenprodukte 


für den wachsenden Markt 
der Heimcomputer-Anwender _ 


Informationen: Tronic-Verlag, Landstraße 29 
Postfach 41, 3444 Wehretal 1, Ruf (056 51) 406 93 
Vertrieb: Verlagsunion, Friedrich-Bergius-Straße 20, 6200 Wiesbaden, Ruf (061 21) 26 60 


